var
  ProfileList: Tstrings;
  reg: TRegistry;

procedure TForm1.FormCreate(Sender: TObject);
begin
ProfileList := Tstrings.Create;
                                  {get Avaliable Profiles}
  reg := TRegistry.Create;
  reg.RootKey := HKey_local_machine;
  reg.OpenKey ('SOFTWARE\Skyruner2\FTP_News\Profiles', True);
  reg.GetKeyNames(ProfileList);

                                  {set profiles in selection box}
  ProfileSelection.Items:=ProfileList;

end;