My little Steganosaur

[Luckie]

Tut mir Leid, das kann ich hier (XP SP3) nicht nachvollziehen. Ich mache nichts anderes als

Delphi-Quellcode:

procedure TfrmAppendFile.btnCarrierFileClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    edtCarrierFile.Text := OpenDialog1.FileName;
  end;
end;

und

Delphi-Quellcode:

procedure TfrmAppendFile.EditChange(Sender: Tobject);
begin
  btnAppend.Enabled := (FileExists(edtCarrierFile.Text)) and (FileExists(edtTrailerFile.Text));
  btnExtract.Enabled := (FileExists(edtCarrierFile.Text)) and (DirectoryExists(edtDestFoler.Text));
  btnRemove.Enabled := FileExists(edtCarrierFile.Text);
end;