Textdateien in Listbox laden

[FreezyOfficial]

Hallo,
ich wollte alle Textdateien aus einem Ordner in einer Listbox anzeigen und habe es so probiert:

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var
  SearchRec: TSearchRec;
begin
  FindFirst('C:\Ordner1\Ordner2\' + '*.txt', faAnyFile, SearchRec);
  repeat
    Listbox1.Items.Add(searchrec.Name);
  until FindNext(searchrec) <> 0;
  findclose(searchrec);
end;

So werden auch die Dateitypen angezeigt wie z.B. "Test.txt", ich will aber, dass nur "Test" angezeigt wird. Wie geht das?
Bin ein Anfänger, falls es eine dumme Frage ist.