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.

[Klaus01]

Sollte so funktionieren:
Listbox1.Items.Add(changeFileExt(searchrec.Name,'')); Grüße
Klaus

[FreezyOfficial]

Danke für die schnelle Antwort. Jetzt klappt es.

[himitsu]

Der "modernere" Weg ginge über die IOUtils -> TPath.ChangeExtension

Ebenso sind dort auch Funktionen zum Suchen von Dateien enthalten -> TDirectory.GetFiles