es muss so sein:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var a,b: TFileStream;
Offset : cardinal;
begin
offset := Strtoint(Edit3.Text);
a := TFileStream.Create('Datei.dat', fmOpenRead);
b := TFileStream.Create('datei2.dat', fmCreate);
b.CopyFrom(a, offset);
a.Free; b.Free;
End;
du hast das "Create" vergessen, so wie es bei jeder Objectinstanzierung sein muss.