Unnamed

function LoadFile(FilePath: String): String;
var
  Stream: TFileStream;
begin
  Stream := TFileStream.Create(FilePath, fmOpenRead);
  try
    SetLength(Result, Stream.Size);
    Stream.ReadBuffer(Result[1], Length(Result));
  finally
    FreeAndNil(Stream);
  end;
end;