Showmessage minimizado

[shoulder]

Hola por eso habia dicho antes que el tema se habia hablado, lo probe con todo y solucione parcialmente con la forma :

Código Delphi [-]
 vHandle := FindWindow(nil, 'Scanear');
           if vHandle <> 0 then
           SetForegroundWindow (vHandle);

cuando otro programa delphi (en este caso hice un programa que scanea) y con esas sentencias no me aparece minimizado sino al frente.-

El tema es cuando es un mensaje ejemplo :

Código Delphi [-]
Msg := 'Archivo Cambiado';
  MessageBox(Handle, PChar(Msg), PChar('Error'), MB_OK + MB_ICONERROR);

o con messagebox, en forma aleatoria aparece minimizado el mensaje o es mas una vez me paso que ni aparecio el mensaje. usando el Handle puedo forzar un mensaje para que aparezca adelante?.