[dr. F.I.N.]

Так, пожалуй

Код:

const
  c = 'полное имя файла .TXT';
var
  l: TStringList;
begin
  l := TStringList.Create;
  l.LoadFromFile(c);
  MessageBox(handle,PChar(l.Text), PChar('Заголовок'), 64);
  l.Free;
end;