items i combobox

jeg har lige et spm om den her kode:


Procedure Tform1.Finddir(dir:string);
var
  SearchRec: TSearchRec;
begin
  If Copy(dir,Length(dir),1)<>\'\\\' then dir:=dir+\'\\\';
  IF not DirectoryExists(dir) then begin
  showmessage(\'Directory \"\'+dir+\'\" does not exist!\');
  exit;
  end;
  If FindFirst(dir+\'*.*\', faAnyFile, SearchRec)=0 Then
  Repeat
    If SearchRec.Attr=faDirectory Then begin
      If (SearchRec.Name=\'.\')or(SearchRec.Name=\'..\') then Continue;
      FindDir(dir+SearchRec.Name);
    end else begin
      if Extractfileext(SearchRec.Name)=\'.dat\' then
        combobox1.Items.Add(SearchRec.Name);
    end;
  until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;


hvordan får jeg den til at lade være med at skrive filens efternavn (.dat) i combobox\'en


/zerocool