[Darlok]

Здравствуйте. Собственно сабж выложил кратко в теме топика. А теперь по-подробнее... Есть access-овская бд с табличками. Подключение через ADO.
А теперь проблема. При запуске программы циклом создаются submenu в Popupmenu (В самом меню статические 5 обьектов, и к этим обьектами создаются дополнительные выпадающие списки с кнопками.
Количество кнопок на прямую зависит от количества записей в таблице). Так вот, реализовать создание кнопок смог, появление messagedlg с названием кнопки сделал, но проблема появилась следующая...
Как узнать Caption кнопки?? Ниже код создания кнопок и код процедуры вывода сообщения

Код:

  i,fld_count_org:integer;
begin
  fld_count_org:=DataModule2.Organization.RecordCount-1;
  DataModule2.Data_field_popup.Active:=false;
  DataModule2.Data_field_popup.SQL.Clear;
DataModule2.Data_field_popup.SQL.Text:='Select [Наименование организации] From Организации';
DataModule2.Data_field_popup.Active:=True;
  for i:=0 to fld_count_org do
  begin
    PopupMenu2.Items.Items[0].NewBottomLine;
    PopupMenu2.Items.Items[0].Items[i].Name:='q_0_'+IntToStr(i);
    PopupMenu2.Items.Items[0].Items[i].Caption:=DataModule2.Data_field_popup.Fields.FieldByname('наименование организации').AsString;
    PopupMenu2.Items.Items[0].Items[i].OnClick:=ClickPopupMenu;э
    DataModule2.Data_field_popup.Next;
  end;

Код:

procedure TForm1.ClickPopupMenu(Sender: TObject); 
begin
MessageDlg('Нажата '+TControl(Sender).Name ,mtInformation,[mbOk],0);
end;

Код рабочий, но проблема в том что нужно было Caption кнопки передавать в Edit. Идеи которые пришли в голову - проверялись и не работают. Прошу помощи у знающих людей