Кнопка в неактивном окне не нажимается

[Altera]

Всем привет. Это ещё один вопрос из серии созданных окон не при помощи приложения.
Короче, проблема в том, что если "искусственно" создать форму, то компоненты типов tButton, tCheckBox и т.д. не нажимаются с первого клика если окно не активно. Приходится щёлкать дважды. Не комфортно.
Вот простейший код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   with TForm1.Create(application) do
   begin
      caption := 'Новое хреновое окно; ID: '+intTOStr(random($FFFFFE)+ 1);
      button1.Caption := '2x Click!';
      Show;
   end;
end;

end.

Создайте новое приложение с одной кнопкой и по созданию нового окна переведите фокус на другое приложение! После чего попытайтесь нажать кнопку в созданном окне.

На тот случай, если у меня чудит Delphi, выкладываю EXE-шник;

p.s. Замечу, что такие компоненты как tSpeedButton нажимаются сразу.

[Altera]

Дааа, в Delphi 2010 всё Оки. Ну ладно. Будем считать вопрос решённым.