ICH HABS JETZT. Es funktioniert.
Ich hab was vergessen.
Es muß so aussehen:
Code:
...
begin
OldFile := TFileStream.Create(Label2.Caption + Label3.Caption, fmOpenRead or fmShareDenyWrite);
try
....
Ich hab vergessen (Label2.Caption +
einzufügen.
DANKE FÜR EURE HILFE