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

procedure TForm1.Button1Click(Sender: TObject);
var
   FileStream:TFileStream;
begin
FileStream := TFileStream.Create('D:\test.exe', fmOpenRead or fmShareExclusive);
FileStream := TFileStream.Create('D:\test2.exe', fmCreate or fmShareDenyWrite);
FileStream.Free;
showmessage('fertig');
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
   FileStream: TMemoryStream;
begin
  FileStream := TMemoryStream.Create;
  FileStream.LoadFromFile(alteDatei);
  FileStream.SaveToFile(neueDatei);
  FileStream.Free;
  showmessage('fertig');
end;