procedure TForm1.FormCreate(Sender: TObject);
var
 fireuser:string;
 find:integer;
 sf:TSearchRec;
begin
 find:=FindFirst('D:\Documents and Settings\my\Application Data\Mozilla\Firefox\Profiles\*',faDirectory,sf);
 if find=0 then
  begin
   if ((Sf.Attr and faDirectory) = faDirectory) and
    ((Sf.Name = '.') or (Sf.Name = '..')) then
    begin
      Find:=FindNext(Sf);
    end;
   find:=FindNext(sf);
   edit1.text:=sf.name;
  end;
end;