FileListBox ohne endung

[SaFu]

hi habe mal wieder nach langer zeit eine Frage

Warum bekomme ich in meiner FileListBox die endung nicht weg

Delphi-Quellcode:

procedure TForm8.FileListBox1Change(Sender: TObject);
var name :String;
begin
 name := Copy(ExtractFileName(FileListBox1.FileName), 1, Length(ExtractFileName(FileListBox1.FileName))-Length(ExtractFileExt(FileListBox1.FileName));

  if (name = '.txt') then
      begin
       Gridlade;
       memolade;
       bilderlade;
     end;

 end;

Kann mir vielleich jemand helfen