Программно развернуть свёрнутое приложение

[Nester]

форма WindowState=wsMinimized
на форме таймер Interval=5000
в таймере одна строка Form1.WindowState:=wsNormal;

запускается в свёрнутом виде но после 5 сек окно не разворачивается

вставлял такое ShowWindow( Form1.Handle, SW_NORMAL );
окно появляется но пустое (без контролов) видимо обработчики прорисовки
и прочего в этом состоянии выключены

вот такая элементарная задача а решить не могу
сто лет не кодил строго не судите

[Аватар]

  Visible:=True;
  WindowState:=wsNormal;
  Timer1.Enabled:=False;

[Nester]

ура заработало

Procedure TForm1.Timer1Timer(Sender: TObject);
  Var MX,MY,x,y: Integer;
             FS: TFormStyle;

 Begin
  //Если приложение свёрнуто
  If Form1.WindowState=wsMinimized Then
   Begin
    Form1.Visible:=True;
    Form1.WindowState:=wsNormal;
   End;

  //Запоминаем состояние окна
  FS:=Form1.FormStyle;
  //Показываем форму поверх всех
  Form1.FormStyle:=fsStayOnTop;

  //Запоминаем координаты курсора мышки
  MX:=Mouse.CursorPos.X;
  MY:=Mouse.CursorPos.Y;
  //Расчитываем координаты центра области Caption окна Form1
  X:=Form1.Left+(Form1.Width Div 2);
  Y:=Form1.Top+5;
  //Устанавливаем курсор в нужную позицию
  SetCursorPos( X,Y );
  //Кликаем левой кнопкой мышки
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, X, Y, 0, 0);
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, X, Y, 0, 0);
  //Восстанавливаем состояние окна
  Form1.FormStyle:=FS;
  //Возращаем курсор на место
  SetCursorPos( MX,MY );

  //Фокус на объект ввода
  Memo1.SetFocus;
  //Останавливаем таймер
  Timer1.Enabled:=False;

 End;

[Nester]

использую эту процедуру естественно не в таймере
в программе есть поток который читает данные со сканера штрих кода
режим USB-COM и при получении данных
показывает окно программы (если оно закрыто другими окнами или свёрнуто) с фокусом на объекте ввода
куда и пишится barcode

[Nester]

что то типа SwitchToThisWindow
но его не проверял и думаю он не работает как мне нужно