| Для того, чтобы окно появилось поверх других и стало бы активным нужно использовать функцию SetForegroundWindow. Она работает даже в том случае, если активно другое приложение Эта программа активизирует то окно, над которым находится мышь.
Code
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 50;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var p: TPoint;
begin
GetCursorPos(p);
SetForegroundWindow(WindowFromPoint(p));
end;
| 
