[fortran]

He hecho tal y como decía Cadetill:

TablaClientes --> TablaVisitas, y hasta ahí bien.

Para acceder al servicio que se ha hecho al tener el código he hecho lo siguiente:

Procedure RellenarDatosCliente;
Var
  i : integer;
  indicedeservicios:  array [1..7] of integer;
Begin
with FormularioPrincipal do
Begin
// recogida de indices de servicios
   indicedeservicios[1]:= modulodedatos.tablavisitasserviciorealizado1.value;
   indicedeservicios[2]:= modulodedatos.tablavisitasserviciorealizado2.value;
   indicedeservicios[3]:= modulodedatos.tablavisitasserviciorealizado3.value;
   indicedeservicios[4]:= modulodedatos.tablavisitasserviciorealizado4.value;
   indicedeservicios[5]:= modulodedatos.tablavisitasserviciorealizado5.value;
   indicedeservicios[6]:= modulodedatos.tablavisitasserviciorealizado6.value;
   indicedeservicios[7]:= modulodedatos.tablavisitasserviciorealizado7.value;
// Localización en la tabla de servicios de esos índices e inserción del nombre en
// el Memo1
   for i := 1 to 7 do
   Begin
   with modulodedatos.tablaserviciosclaveservicio do
   Begin
      modulodedatos.TablaServicios.First;
      While not eof do
         if value = indicedeservicios[i] then
            memo1.lines[i] := modulodedatos.TablaServiciosnombreservicio.Value
         else
            Next;
    End;
    End;
End;
End;

El problema es que me da un Class EInOutError con mensaje(I/O error 6). En la sentencia while not eof do. ¿por que?.