Ошибка вызова одной процедуры в другой!

[$T@LKER]

Почему при таком вызове ошибку нету:

procedure TAReview.BitBtn1Click(Sender: TObject);
begin
BitBtn3Click(Sender);
BitBtn2Click(Sender);
end;

А при таком есть:

procedure TAReview.cxGrid1Click(Sender: TObject);
begin
DBGrid1CellClick(Column);
end;

...ошибка - Column неизвестный идентификатор!!!

[Stilet]

Ниче себе спросил...
Для ответа нужно знать что у тя в кликах по кнопкам прописано.

Column неизвестный идентификатор!!!

Ну верно. Что еще за Column?

[$T@LKER]

Ниче себе спросил...
Для ответа нужно знать что у тя в кликах по кнопкам прописано.

BitBtn3Click(Sender); :

listbox1.Clear;
edit2.Text := '';
LabeledEdit3.Text := '';
datamodule2.DataQuery.Active := false;
DataModule2.DataQuery.Filtered := false;

BitBtn2Click(Sender); :

edit5.Text := '';
combobox5.ItemIndex := -1;
combobox5.Text := '';
combobox6.ItemIndex := -1;
combobox6.Text := '';
combobox7.ItemIndex := -1;
combobox7.Text := '';
combobox8.ItemIndex := -1;
combobox8.Text := '';
edit3.Text;
datamodule2.DataQuery.Filter := '';
datamodule2.DataQuery.Filtered := false;

DBGrid1CellClick(Column); - это не кнопка а событие на клик по строке в гриде!!!

Вот:

//виведення даних із таблиці
procedure TAReview.DBGrid1CellClick(Column: TColumn);
begin
if (datamodule2.DataQuery.Active = true)
then begin
groupbox6.Visible := true;
//кілкість кімнат
edit9.Text := dbgrid1.Fields[2].AsString;
//планіровка
edit7.Text := dbgrid1.Fields[3].AsString;
//общая цена
edit12.Text := dbgrid1.Fields[4].AsString;
//цена за метр
edit1.Text := dbgrid1.Fields[5].AsString;
//валюта
edit6.Text := dbgrid1.Fields[6].AsString;
//район
edit11.Text := dbgrid1.Fields[7].AsString;
//вулиця
edit10.Text := dbgrid1.Fields[8].AsString;
//будинок
edit4.Text := dbgrid1.Fields[9].AsString;
//жилая
edit8.Text := dbgrid1.Fields[10].AsString;
//кухня
edit13.Text := dbgrid1.Fields[11].AsString;
//єтаж
edit14.Text := dbgrid1.Fields[12].AsString;
//єтажность
edit17.Text := dbgrid1.Fields[13].AsString;
//материал
edit15.Text := dbgrid1.Fields[14].AsString;
//телефон
edit18.Text := dbgrid1.Fields[15].AsString;
//телевізор
edit16.Text := dbgrid1.Fields[16].AsString;
//холодільник
edit19.Text := dbgrid1.Fields[17].AsString;
//мебель
edit20.Text := dbgrid1.Fields[18].AsString;
//предоплата
edit21.Text := dbgrid1.Fields[19].AsString;
//контактний телефон
edit22.Text := dbgrid1.Fields[20].AsString;
//примечание
memo1.Text := dbgrid1.Fields[21].AsString;
//дата
edit24.Text := dbgrid1.Fields[22].AsString;
end;

end;

[soleil@mmc]

ну и передай туда Sender-а
чего выдумывать-то?!

[$T@LKER]

Тему можно закрыть! Я уже добился чего хотел!