Как без лишних функций записать файл в string?

[Somebody]

Или ещё вариант со стандартными паскалевскими файлами:

var
  f: File;
  s: String;
  l: Cardinal;
begin
  AssignFile(f, 'c:\file.txt');
  Reset(f, 1);
  l := FileSize(f);
  SetLength(s, l);
  BlockRead(f, s[1], l);
  CloseFile(f);
end.