Eine Dateierweiterung *.txt entfernen?

[City Light]

Kein Punkt mehr

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
var
 s:String;
begin
if OpenDialog1.Execute then
  SynEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
  if Edit1.Text = '' Then
  s:= ExtractFileName(ChangeFileExt(OpenDialog1.FileName,''));
  Edit1.Text:=s;
end;

Danke