datei mit TFileStream auslesen

[phXql]

Moin leute, ich möchte eine textdatei mit einem TFileStream-Objekt auslesen. ich hab bisher folgenden code:

Delphi-Quellcode:

procedure LoadFile(Filename : String; window : TFormChild);
var stream : TFileStream;
    t_read : Array of Byte;
    a : Integer;
    t_str : String;
begin
  stream := TFileStream.Create(Filename,fmOpenRead);
  SetLength(t_read,stream.size);
  t_str := '';
  for a := 0 to Length(t_read) - 1 do
  begin
    stream.Read(t_read[a],1);
    t_str := t_str + chr(t_read[a]);
  end;
  FreeAndNil(stream);
  window.mmoMain.Text := t_str;
end;

möchte ich damit eine 1 MB datei öffnen, dauert es schoin etwas. ich glaube auch nicht, dass das oben die optimale methode ist. hat jemand ein tutorial oder ein kleines beispiel, wie es besser geht?

mfg
phXql