[Decoding]

а если так?

Код:

1 2 3 4 5 6

procedure TForm1.Button1Click(Sender: TObject); begin    SendMessage(h, WM_SETFOCUS, 0, 0);    SendMessage(h, WM_LBUTTONDOWN, MK_LBUTTON, 0);    SendMessage(h, WM_LBUTTONUP, MK_LBUTTON, 0); end;