[Snake22]

Flop88 , отправить нужно сообщение или просто текст в текстовое поле? а то я подозреваю что если только начал изучать delphi то отправка сообщений както рановато для рначала)
могу предложить такой код:
(на форме 3 текстовых поля Edit и кнопка)

Код:

var
  Form1: TForm1;
  n:Integer;
implementation

{$R *.dfm}

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
n:=1;
end;

procedure TForm1.Edit2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
n:=2
end;

procedure TForm1.Edit3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
n:=3
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
case n of
     1:Edit1.Text:='aaa';
     2:Edit2.Text:='aaa';
     3:Edit3.Text:='aaa';
     end;
end;