procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  //f: textfile;
  ThreadID: cardinal;
begin
  if EnableDebug <> 0 then
    begin
      if FileExists(ExePAth + 'debug.log')

        then begin
               if DeleteFile(ExePAth + 'debug.log')
                 then begin
                        //i:= FileCreate(ExePath + 'debug.log');
                        //FileClose(i);
                        xLoggerHandle:= FileCreate(ExePath + 'debug.log');
                      end
             end
        else begin
               //i:= FileCreate(ExePAth + 'debug.log');
               //FileClose(i);
               xLoggerHandle:= FileCreate(ExePath + 'debug.log');
             end;
    end;         
  //lit:= CreateThread(nil,0,@LoadImages, nil,0,ThreadID);
  xPL:= TStringList.Create;
  xPL.Clear;
  xKJ:= TStringList.Create;
  xKJ.Clear;
  xCom_Port:= TStringList.Create;
  xMel:= TstringList.Create;
  xMelAlarm:= TstringList.Create;
  xMelCard:= TstringList.Create;
  mStr:= TStringList.Create;
  iStr:= TStringList.Create;
  identStr:= TStringList.Create;
  xJavaAvailable:= TStringList.Create;
  SplashForm.Label1.Caption:= 'programm settings ...';
  SplashForm.Update;
  LoadSettings(ExePath + 'config.ini');
  SplashForm.Label1.Caption:= 'Images ...';
  SplashForm.Update;
  LoadImages(ExePath);
  //ThreadHandle:= CreateThread(nil, 0, @TelWatcherThread, nil, 0, ThreadID);
  //lit:= CreateThread(nil,0,@LoadImages, nil,0,ThreadID);
  //SuspendThread(xt);
  //GetExitCodeThread(xt, x);
  //TerminateThread(xt, x);
  //CloseHandle(xt);
  SplashForm.Label1.Caption:= 'Language ...';
  SplashForm.Update;
  LoadLang(ExePath + '\Lng\' + xLang);
  ApplyLang;
  ApplyHints;
  //frmAT_PhoneBook.CreateListView(iPhoneBookType);
  frmAT_Messages.FillTree(frmAT_Messages.spSkinTreeView1);
  //
  (*
  if EnableDebug <> 0 then
    begin
      AssignFile(f, ExtractFilePAth(ParamStr(0)) + 'debug.log');
      Rewrite(f);
      CloseFile(f);
    end;
  *)
  
    IsP2KConnected:= false;
    IsATConnected:= false;
    IsFlashConnected:= false;
    IsOBEXConnected:= false;
  try
    ChangeProgMode(TProgramMods(iCurrentMode));
  except
  end;
  if RollUp
    then Form1.spDynamicSkinForm1.BorderIcons:= Form1.spDynamicSkinForm1.BorderIcons  + [biRollUp]
    else Form1.spDynamicSkinForm1.BorderIcons:= Form1.spDynamicSkinForm1.BorderIcons  - [biRollUp];
  if MinToTray
    then Form1.spDynamicSkinForm1.BorderIcons:= Form1.spDynamicSkinForm1.BorderIcons  + [biMinimizeToTray]
    else Form1.spDynamicSkinForm1.BorderIcons:= Form1.spDynamicSkinForm1.BorderIcons  - [biMinimizeToTray];
  if ThemeAdapt
    then ApplySkin(Skin)
    else spSkinData1.ClearSkin;
  // flash_backup
  xProfList:= TStringList.Create;
  xProfList.NameValueSeparator:= '=';
end;