Leer una cierta cantidad de caracteres de una archivo.

[[egostar]]

Otra opción

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  linea := 'UNO DOS TRES CUATRO CINCO SEIS SIETE OCHO';
  repeat
     indice := pos(' ',linea);
     dato := copy(linea,1,indice);
     delete(linea,1,indice);
     if (dato <> ' ') and
        (dato <> '') then begin
           memo1.Lines.Add(dato);
     end;
  until indice = 0;
  memo1.Lines.Add(linea);
end;

Salud OS