Søgning efter fil

Hvordan får jeg et program til at søge efter en bestemt fil type og derefter sætter alle filerne ind i en combobox.

I comboboxen skal stien fjernes:"C:\test\test.txt" Skal være "text.txt" i stedet.

Jeg har prøvet med:
procedure TForm1.Button3Click(Sender: TObject);
var
  buffer: array [0..255] of char;
  FileToFind: string;
begin
  GetWindowsDirectory(buffer, SizeOf(buffer));
  FileToFind := FileSearch(Edit1.Text, GetCurrentDir + ';' + buffer);
  if FileToFind = '' then
    ShowMessage('Couldn''t find ' + Edit1.Text + '.')
  else
    Edit3.Text:=FileToFind;
end;

Men den fortæller ikke hvilken fil den har fundet, men kun at den har fundet en fil.

Håber nogen kan hjælpe.