find dir

jeg har den her kode


Procedure Tform1.Finddir(dir:string);
var
  SearchRec: TSearchRec;
begin
  If Copy(edit1.text,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;
      //loop through subdirs
      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;


jeg vil gerne have den her kode til at hente stien fra \"edit1.text\"
hvordan for jeg det???