Вывод слова по клику мышки

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    procedure FormClick(Sender: TObject);
   
 
  private
 
    { Private declarations }
  public
         x1,y1:integer;
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 procedure Tform1.FormClick(Sender: TObject);
  var a:string;
      x1,y1:integer;
  begin
  a:=combobox1.Text;
  x1:=mouse.CursorPos.x;
  y1:=mouse.CursorPos.y;
  form1.Canvas.TextOut(x1,y1,a);
   end;

procedure TForm1.FormClick(Sender: TObject);
var
 a: string;
 P: TPoint;
begin
 getCursorPos(P);
   a:=combobox1.Text;
 P.X:=P.X-Left-getSystemMetrics(SM_CXBORDER)-getSystemMetrics(SM_CYEDGE);
 P.Y:=P.Y-Top-getSystemMetrics(SM_CYCAPTION)-getSystemMetrics(SM_CYMENU)-getSystemMetrics(SM_CYBORDER)-getSystemMetrics(SM_CYEDGE);
 form1.Canvas.TextOut(P.X , P.Y,a);
end;

procedure TForm1.FormClick(Sender: TObject);
var
P : TPoint;
a: string;
begin
a := combobox1.Text;
GetCursorPos(P); {получили экранные координаты}
P := Form1.ScreenToClient(P); {преобразовали в координаты клиента}
 
Form1.Caption := IntToStr(P.X) + ' : ' + IntToStr(P.Y);
form1.Canvas.TextOut(P.X, P.Y, a);
end;