Delphi - duda sobre archivos

en delphi ocupo la opcion
while not eof (archivo) do
begin
readln(archivo, dato)
end

que me lee linea por linea datos como saben , pero como puedo hacer q me lea 1 linea hasta que se acaben las palabras y luego se pase alaotra linea q sige( mi idea es leer una palabra o frase y cargarla a un vector palabra por palabra en cada espacio)
por su ayuda gracias

Si no me equivoco, puedes hacer lo siguiente:

Creas una variabe TStringList. Luego cargas en el StringList el texto que quieras y lo pones donde te apetexca. En el ejemplo siguiente, se crea el StringList y luego se carga, según dos botones, la primera linea de dos archivos de texto en un Memo.

Suerte.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
Lineas: TStringList; //El que contendrá el texto
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Lineas:=TStringList.Create; //Lo inicializamos
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Lineas.Clear;
Lineas.LoadFromFile('C:\Winzip.log'); //Decimos que debe contenener
Memo1.Lines.Append(Lineas[0]); //Lo añadimos al Memo
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Lineas.Clear;
Lineas.LoadFromFile('C:\N2pInst.log');
Memo1.Lines.Append(Lineas[0]);
end;

end.