ich hab eine art Rätsel (.txt wird zweimal angezeigt)

[Bjoerk]

BTW, für deinen Algo in Button1Click gibt’s ExtractFileName (könnte man dann auch gleich mit Edit1Change verknüpfen?)

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit2.Text := ExtractFileName(Edit1.Text);
end;