Подставить данные из DBGrid в edit

[Scorpuha]

Есть форма, на ней несколько едитов. По двойному клику к примеру на первом из едитов (edit1) открывается форма на которой располагается dbgrid с данными. Двойной клик на гриде и и данные выбранной строки заполняют edit1 на первой форме. Форма с гридом закрывается. Далее: двойной клик на edit2, опять открывается таже форма с гридом. Жмем дважды и данные строки получается заполняют и edit1 и edit2 одинаковыми данными. Как этого избежать?
вот мой код по переносу в один едит.

procedure TSetupF.Edit1DblClick(Sender: TObject);
begin
Vybor_komF.showmodal;
end;

procedure TVybor_komF.DBGrid1CellClick(Column: TColumn);
begin
SetupF.edit1.Text:=dbgrid1.DataSource.DataSet.FieldByName('fio').AsString;
end;

[xxbesoxx]

SetupF.edit1.Text:={ Ваши -->}ADO_Query.FieldByName('fio').AsString;

[evg_m]

procedure TVybor_komF.DBGrid1CellClick(Column: TColumn);
begin
///ПОДЧИНЕННАЯ ФОРМА НЕ ДОЛЖНА ЗНАТЬ ЗАРАНЕЕ ЗНАТЬ КОМУ ОНА ВОЗВРАШАЕТ РЕЗУЛЬТАТЫ
//// SetupF.edit1.Text:=dbgrid1.DataSource.DataSet.FieldByName('fio').AsString;
  modalresult:=mrok; /// ВСЕ ХОРОШО можно возврашаться!!!! (Закончить показ ShowModal;
end;

procedure TSetupF.Edit1DblClick(Sender: TObject);
var
  wed: Tedit;
begin
  wed:=sender as TEdit; // едит по которому жмакнули
if mrok =Vybor_komF.showmodal then 
begin //Теперь мы точно знаем что там (vybor_komF) жмакнули куда надо

// А ВОТ ГЛАВНАЯ ФОРМА ВСЕ РАВНО ЗНАЕТ КОГО ОНА ОПРАШИВАЕТ и может узнать ответ
 wed.Text:=Vybor_komF.dbgrid1.DataSource.DataSet.FieldByName('fio').AsString;
end
else // а что будем делать если там решено было не жмакать ???
end;

[Scorpuha]

либо я вас не понял либо вы меня.
вот смотрите, если добавить заполнение edit2 на первой форме данными из грида на второй форме, вот что получается.

procedure TVybor_komF.DBGrid1CellClick(Column: TColumn);
begin
SetupF.edit1.Text:=dbgrid1.DataSource.DataSet.FieldByName('fio').AsString;
SetupF.edit2.Text:=dbgrid1.DataSource.DataSet.FieldByName('fio').AsString;
end;

т.е. данные будут одинаковые в двух едитах.

Я представляю как, в процедуре TVybor_komF.DBGrid1CellClick задать условие на каком из едитов было событие двойного клика тот и заполнять. Как это сделать я не знаю.

вот блин пока писал, появился ответ, буду читать.

[Scorpuha]

Хотел сказать спасибо за помощь, а форум пишет что я должен сказать спасибо сначала кому то другому, а потом уже тому кому хотел.

evg_m, можно усложнить задачку? Сейчас заполняется за один присест едит из одного поля, а как сделать что бы дополнительно к первому едиту заполнялось и еще второй едит из поля в гриде к примеру с названием professiya

[evg_m]

1. всем "одновременно" заполняемым Edit-ам назначаем свои единые для каждой такой группы теги свойство(property) tag
Делать можно в инспекторе Inspertor Objects

wed:=sender as Tedit;
showModal ....

ВАр1.

case wed.tag of
1: begin 
  edit1.text:=...
  edit2.text:=...
end;
2: begin 
  edit3.text:=....
  edit4.text:=....
end;

ВАр 2

if edi1.tag =wd.tag then edit1.text:=...
if edit2.tag =wd.tag then edit2.text:=....
if edit3.tag =wd.tag then edit3.text:=...
if edit4.tag =wd.tag then edit4.text:=...

Вар 3. изощрённый!
как понимаю есть несколько ОДИНАКОВЫХ групп Edit-ов , которые ОДИНАКОВО заполняются каждая (группа) из своей записи.

1. оформляем эту группу(ОДНУ!!!) в виде фрейма (TFrame).
2. пишем код выбора и заполнения ВСЕХ Edit-ов в ЭТОМ фрейме.
3. на форму кладем НУЖНО число таких фреймов. ("допиливаем" изображения (названия) )
И ВСЕ... (весь код уже есть и даже с работой по группам)
P.S. о создании и работе с фреймами есть на форме (в т.ч. мои посты)

[Scorpuha]

ух, как всё... интересно
но я пошел другим путем
добавил строчку

procedure TSetupF.Edit3DblClick(Sender: TObject);
var
  wed: Tedit;
begin
  wed:=sender as TEdit;
if mrok =Vybor_komF.showmodal then
begin 

 wed.Text:=Vybor_komF.dbgrid1.DataSource.DataSet.FieldByName('fio').AsString;
 edit7.Text:=Vybor_komF.dbgrid1.DataSource.DataSet.FieldByName('professiya').AsString;
end
else
end;

[evg_m]

добавил строчку

она решает твою задачу?
ну значит, все отлично!

[Scorpuha]

Сообщение от evg_m

она решает твою задачу?
ну значит, все отлично!

Да задача решена. Спасибо.