1:
2:
3:
4:
5:
6:

var OhneExt, MitExt: string;
begin
  MitExt := 'Test.txt';
  OhneExt := ChangeFileExt(MitExt, '');
  ShowMessage(OhneExt);
end;					

1:

Edit2.Text := ChangeFileExt(Extractfilename(Edit1.text),'');					

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

procedure TForm1.Button2Click(Sender: TObject);
var intv: integer;
begin
for intv:=0 to (listbox1.items.count-1) do
begin
listbox2.Items.Strings[intv] := ChangeFileExt(listbox1.Items.Strings[intv], '');
end;					

1:
2:
3:
4:
5:
6:

{$UNTESTED}
for i:=0 to quelle.items.count-1 do begin 
  tmpStr:= quelle.Items.Strings[i];
  ChangeFileExt(tmpStr,'');
  ziel.Items.Add(tmpStr)
end;