[NumLock]

Код:

procedure BringToFront(AHandle: HWND);
var
  AThreadId: Cardinal;
  AProcessId: Cardinal;
begin
  AThreadId:=GetCurrentThreadId;
  AProcessId:=GetWindowThreadProcessId(GetForegroundWindow, nil);
  AttachThreadInput(AThreadId, AProcessId, True);
  ShowWindow(AHandle, SW_RESTORE);
  SetForegroundWindow(AHandle);
  AttachThreadInput(AThreadId, AProcessId, False);
end;