[pelikno]

encontre la solucion gracias !!!

 Reset(myFile);
  Memory.Active:=true;

 
  while not Eof(myFile) do
  begin
    
    
    text:='';
    while length(text) < 21 do
    begin
      Read(myFile, letter) ;   
      text:=text + letter ;

    end;
    Read(myFile, letter);
    Memory.Append;    
    Memorycuil.Value :=copy(text,1,2)+'-'+copy(text,3,8)+'-'+copy(text,11,1);
    Memoryganancias.Value:=copy(text,12,2);
    Memoryiva.Value:=copy(text,14,2);
    Memorymonotibuto.Value:= copy(text,16,2);
    MemoryintegranteSo.Value:= copy(text,18,1);
    Memoryempleador.Value:=copy(text,19,1);
    MemoryactividadMono.Value:=copy(text,20,2);
    Memory.Post;
    end;