TFileStream, Buffer, kA einlesen / auslesen

[Morbid]

Hi,

Ich bin jetzt seit einigen Stunden am suchen, allerdings hab ich leider noch nichts brauchbares gefunden, hoffe wer von euch kann mir weiterhelfen. (Auch nach 4 Jahren Delphi in der Schule haben wir sowas nicht gesehen...)

Also das Problem ist dass ich kA hab wie ich eine Datei (keine .txt-Datei, sondern eine .exe, .doc oder was auch immer) in einen Buffer schreibe.

Säter will ich diese Datei auch wieder herstellen.

Zu Testzwecken wollte ich also probieren eine Datei damit zu Copieren. Allerdings funktionierts nicht.

Global:
var gFileSize: integer; Einlesen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  DateiFS: TFileStream;
begin
  DateiFS := TFileStream.Create('C:\Delphi_Test.exe', fmOpenRead);
  gFileSize := DateiFS.Size

  try
    for i := 1 to gFileSize do
      begin
        //kA was hierhin kommt und ob das andere richtig ist?
      end;
  finally
    DateiFS.Free;
  end;
end;

Auslesen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
    DateiFS: TFileStream;
begin
  DateiFS := TFileStream.Create('C:\Delphi_Test_Blup.exe', fmCreate);
  try
    for i := 1 to gFileSize do
      begin
        //kA was hierhin kommt und ob das andere richtig ist?
      end;
  finally
    DateiFS.Free;
  end;
end;

mfG Morbid