вывод текста при наведении на кнопку

[мимо]

как осуществить вывод текста в memo или в любую форму в программе при наведении на кнопку. при этом текст должен оставаться на месте если убрать курсор мышки с кнопки и измениться при наведении на другую кнопку. может есть компонент какой-нибудь? подскажите!

[uberchel]

Просто!

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Memo1.Text:= Button1.Caption;  //для Мемо
Label1.Caption:= Button1.Caption;// для Label
end;

[Longedok]

В обработчике события MouseMove кнопки нужно написать что-то вроде:
memo1.Text = 'Text';
пример:

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  memo1.Text := 'Text';
end;

Upd убрал ненужные кавычки

[мимо]

спасибо. получилось.