[M.A.D.M.A.N.]

Ну а почеему нельзя?

Код:

  AssignFile(...);
  Reset(f);
  while not EOF(f) do
  begin
    Readln(f, s);
    text := text + s;
  end;
....
....
  MessageBox(..., PChar(text), ...);

---
Не успел
Можно и через CreateFile или Как описано выше. В общем как угодно.