[__cadetill]

Posteado originalmente por fortran
Con la segunda me pongo ahora a ver si doy con la solución, de momento he de decirte que es un procedimiento que tengo en una unidad, en ningún formulario.

Ok, por eso no te funciona el Self. Prueba lo que te comento de añadir Forms en el uses y utilizar Application

Posteado originalmente por fortran

      While not eof do begin
         if modulodedatos.TablaServiciosClaveServicio.value = indicedeservicios[i] then
         Begin
            memo1.lines[i] := modulodedatos.TablaServiciosnombreservicio.Value;
            next;
         end
         else
            Next;
    End;

Respecto a este cacho de codigo, no crees que es lo mismo que hacer...

      While not eof do begin
         if modulodedatos.TablaServiciosClaveServicio.value = indicedeservicios[i] then
            memo1.lines[i] := modulodedatos.TablaServiciosnombreservicio.Value;
          Next;
    End;

y nos ahorramos alguna linea Ya que, sea cual sea el resultado de la condicion del IF vamos ha hacer un Next, podemos quitarlo de dentro del mismo