Miganie aplikacji i imag-a

Witam

Mam problem z.. miganiem

Pierwsza sprawa dotyczy takiego kodu wczytujacego pliki ze skojarzonym rozszerzeniem równiez w wypadku gdy program jest już otwarty.prosze nie zwracać uwagi na sposób napisania,nie chciałem zawracać głowy i tylko cos takiego udało mi się sklecić

Uchwycik:=FindWindow(nil,'Kichu2');
 Handle2:=FindWindow(nil,'Kichu');
  
  if Uchwycik>0 then
  begin
              if ParamCount > 0 then
               Begin
              SaveWymiana(ParamStr(1));
              SendMessage(Uchwycik,Moj_Komunikat,0,0);
              SetForegroundWindow(Uchwycik);
              Application.Terminate;
              PostMessage(Handle2, WM_CLOSE, 0, 0 );
              End;
  end;
  Application.Initialize;
  Ex:=GetWindowLong(Application.Handle, GWL_EXSTYLE);
  SetWindowLong(Application.Handle,GWL_EXSTYLE,
  Ex or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
  Application.CreateForm(TForm_Main, Form_Main);
  Procedury.ButtonUpdate;
  Application.Run;

oprócz tego jest jeszcze obsługa zdarzenia on_show głównej formy,ale tam nie dzieje sie nic dziwnego.

chodzi mi o to ze gdy program jest uruchamiany (dzieje się to dość często bo ładowane są do niego pliki uruchomione z exploratora przez użytkownika) miga mi jakaś dziwna ramka w lewym rogu ekranu i po chwili znika.tak jakby bylo to jakies okno tworzone i zaraz zamykane.przy czestym wywoływaniu programu jest to troszkę zauważalne i uciążliwe.wszystkie okna w mojej aplikacji oprócz głównego są tworzone dynamicznie w innym czasie.

ma ktoś pomysł jak temu zaradzić ???

druga sprawa z miganiem : chodzi o to ze podczas zdarzenia on_show okna pojawia sie formatka,a dopiero ułamek sekundy później umieszczony na niej obrazek.jest jakiś sposób żeby nie było to widoczne??

dzięki za każdą pomoc !!