1 Megabyte von einer großen Datei einlesen?

[R0BIN]

ja weiß ich, hab das probiert, denke aber das ist falsch

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);

var LStream: TFileStream; 
    LBuffer: String;
    laenge : integer;
begin
  laenge := 1024 * 1024 * 1;
  SetLength(LBuffer, laenge);
  LStream := TFileStream.Create(Edit1.Text, fmOpenRead);
  LStream.Read(LBuffer[1], laenge);


  LStream.Free;
  memo1.text := LBuffer;
end;