[Guzh]

Я делаю так:

procedure TForm1.FormCreate(Sender: TObject);
begin
...
  SetWindowLong(Handle, GWL_EXSTYLE,GetWindowLong(Handle, GWL_EXSTYLE) xor  WS_EX_NOACTIVATE );
...
end;

Получается как бы сквозное нажатие.