procedure TMainForm.FormCreate(Sender: TObject);
var Server: String;
Obj: IUnknown; eResult: Integer;
begin
TrayIcon1.visible:=true;
//Убираем с панели задач
 ShowWindow(Handle,SW_HIDE);  // Скрываем программу
 ShowWindow(Application.Handle,SW_HIDE);  // Скрываем кнопку с TaskBar'а
 SetWindowLong(Application.Handle, GWL_EXSTYLE,
 GetWindowLong(Application.Handle, GWL_EXSTYLE) or (not WS_EX_APPWINDOW));

 MemoInfo.Clear;



  end;