Буфер обмена

[Gudzik11]

Подскажите пожалуйста как можно сделать?
Есть у меня ListBox в него копирую текст через буфер обмена после мне нужно вставить его в поле под курсором мышки к примеру в браузере

как мне сделать чтоб по нажатию на строчку в ListBox эта строчка скоперировалась в поле которое я выбрал мышкой

[beegl]

Данный пример выводит сообщение для каждого элемента Listbox, выбранного пользователем.

procedure TForm1.Button1Click(Sender: TObject);
var
  Loop: Integer;
begin
  for Loop := 0 to Listbox1.Items.Count - 1 do
    if Listbox1.Selected[Loop] then
      ShowMessage(Listbox1.Items.Strings[Loop]);
end;

[Gudzik11]

да но как сделать чтоб техт сразу вставлялся в поле выбранное мышкой