[f00rd]

steelik

Либо в TStringList загрузить (LoadFromFile) и после параметр Text взять, либо:

var
 f:System.Text;
 s,buf:string;
begin
 AssingFile(f,'file.txt');
 Reset(F);
 s:='';
 while not eof(f) do
   begin
   readln(f,buf);
   s:=s+buf;
  end;
end;

в s - текст....