procedure TForm1.cbFlashPhoneProfileChange(Sender: TObject);
var
  idx: integer;
  fName: string;
begin
  fName:= TspSkinComboBox(Sender).Text;
  idx:= xProfList.IndexOfName(fName);
  if idx = -1 then exit;
  fname:= xProfList.Values[fname];
  Screen.Cursor:= crHourGlass;
  try
    frmFlash_Backup.GetProfileParams(fname);
  finally
      Screen.Cursor:= crDefault;
  end;
end;