1:
2:
3:
4:
5:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
     if button = mbleft then
      showmessage (' blabla ');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
      if button = mbleft then
      showmessage (' blabla ');
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
     if button = mbleft then
      showmessage (' blabla ');
end;

procedure TForm1.FormKeypreview(Sender: TObject; var Key: Char);
begin
     if button = mbleft then
      showmessage (' blabla ');
end;

end.					

1:
2:
3:
4:
5:
6:
7:

procedure aThread();
begin
 while true do
  if boolean(getAsyncKeyState(1)) then
   if form1.active then
    form1.clickaufform();
end;					

1:
2:
3:
4:
5:
6:
7:

function active():boolean;
var P : TPoint;
begin
 getCursorPos(P);
 active := ((p.x > form1.Left) and (p.x < form1.left+form1.Width)
     and (p.Y > form1.top) and (p.Y < form1.Top+form1.Height));
end;