Janilabo | ReadFile() [Simba]

function ReadFile(path: string): string;
var
  f: Integer;
begin
  if not FileExists(path) then
    Exit;
  f := OpenFile(path, False);
  ReadFileString(f, Result, FileSize(f));
  CloseFile(f);
end;

begin
  ClearDebug;
  WriteLn(ReadFile(AppPath + 'settings.xml'));
end.