адаптировать SQL запрос в отдельной процедуре

[DS75]

Скопировал SQL запрос из процедуры CellClick в отдельную процедуру. В старой процедуре он работал, а вот в отдельной не хочет...

procedure www (Column: TColumn);
begin
ADOQuery3.Close;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('select Nomer from Schet where Statys= True ORDER BY Nomer');
ADOQuery3.Open;
DataSource3.DataSet:=ADOQuery3;
end;

Выдает следующие ошибки:

[Error]Undeclared identifier: 'ADOQuery3'
'(' expected but ';' found
Missing operator or semicolon
Missing operator or semicolon

Что я пропустил, кто знает ?

[ArtInt]

объяви процедуру в форме, например

procedure www (Column: TColumn);

а потом пиши

procedure TForm1.www(Column: TColumn);
begin
end;

[DS75]

Сделал как Вы написали, ошибок не выдает, что очень хорошо !
Но вызвать из другой процедуры опять не получается.
Пишу

procedure TForm1.DBGrid2CellClick(Column: TColumn);
begin
procedure www(Column: TColumn);
end;

или

procedure TForm1.DBGrid2CellClick(Column: TColumn);
begin
procedure TForm1.www(Column: TColumn);
end;

Выходит ошибка

Statement expected but 'PROCEDURE' found

[ArtInt]

Зачем писать слово процедура?

procedure TForm1.DBGrid2CellClick(Column: TColumn);
begin
  www(Column: TColumn);
end;

[DS75]

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

Зачем писать слово процедура?

procedure TForm1.DBGrid2CellClick(Column: TColumn);
begin
  www(Column: TColumn);
end;

Делаю так, но выходит другая ошибка

')' expected but ':' found

Перевел ошибку и сделал так

procedure TForm1.DBGrid2CellClick(Column: TColumn);
begin
www(Column);
end;

Вроде заработало ! Как вам такой код, корректен ?

[ArtInt]

Да и правильно выводит ошибку, извиняюсь поторопился немного,
надо так

procedure TForm1.DBGrid2CellClick(Column: TColumn);
begin
 www(Column);
end;

Теперь точно должно заработать.

[DS75]

Точно работает !
Большое спасибо за помощь !