Roman he incrustado parte de tu código y efectivamente funciona... ahora bien no me queda muy claro lo que hace AttachThreadInput... no será peligroso y me petará la aplicación bajo algunas circunstancias????
Saludos y gracias.
Código Delphi
[-]
procedure TTPC_Main.ServerEPassarPrimerPla(Sender: TObject);
var
FgThreadId : DWORD;
AppThreadId : DWORD;
begin
FgThreadId := GetWindowThreadProcessId(GetForegroundWindow, nil);
AppThreadId := GetWindowThreadProcessId(Handle, nil);
AttachThreadInput(AppThreadId, FgThreadId, true);
SetForegroundWindow(Handle);
AttachThreadInput(AppThreadId, FgThreadId, false);
if IsIconic(Handle) then
ShowWindow(Handle, SW_RESTORE);
end;