1:
2:

  sl := TStringlist.create;
  sl.LoadfromFile('MyFile.txt');					

1:

  sl.Text					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  sInhalt,
  sTemp:   string;
  fDatei:  textfile;
...
begin
  sInhalt := '';
  AssignFile(fDatei, 'c:\blabla.txt');
  Reset(fDatei);
  while not Eof(fDatei) do
  begin
    Readln(fDatei, sTemp);
    sInhalt := sInhalt + sTemp;
  end;
  CloseFile(fDatei);
  showmessage(sInhalt);
end;					

1:
2:
3:
4:
5:
6:
7:
8:

var fm: tfilestream;
s: string;
begin
  fm := tfilestream.create('C:\hallo.txt',fmopenread);
  setlength(s,fm.size);
  fm.read(s[1],fm.size);
  fm.free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function LoadFile(FilePath: String): String;
var fm: tfilestream;
s: string;
begin
  fm := tfilestream.create(FilePath, fmopenread);
  setlength(s,fm.size);
  fm.read(s[1],fm.size);  
  fm.free;
  Result:=s;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

function LoadFile(Const FileName: String): String;
var fm: tfilestream;
begin
  fm := tfilestream.create(FileName, fmopenread);
  setlength(result,fm.size);
  fm.read(result[1],fm.size);
  fm.free;
end;					

1:
2:

type
  TMyArray = array of Byte;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure LoadFile(const FileName: String; var MyArray: TMyArray);
var
  Handle: THandle;
begin

  Handle := FileOpen(FileName, fmOpenRead);
  if Handle <> INVALID_HANDLE_VALUE then
    with TFileStream.Create(Handle) do
      try
        SetLength(MyArray, Size);
        Read(MyArray[0], Size);
      finally
        Free;
      end;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyArray: TMyArray;
  I: Integer;
begin

  LoadFile('C:\DF.TXT', MyArray);
  for I := 0 to High(MyArray) do
  begin
    // hier mein Code
  end;
  SetLength(MyArray, 0);

end;