процедура с элементами формы

[MixanMM]

подскажите пожалуйста, вот есть кусок :

procedure TForm1.Button34Click(Sender: TObject);   //кнопка ПИВО
var
 n1:string;
begin
GroupBox2.Visible:=false;
GroupBox1.Visible:=true;
n1:='1';
  ADOQuery1.Active :=False;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT imya FROM sklad_ostatki WHERE kran='+n1);
  ADOQuery1.Active:=True;
  if ADOQuery1.RecordCount > 0 then
    begin
     Button1.Enabled :=true;
     Button1.Caption:= ADOQuery1.Fields[0].AsString;
     ADOQuery1.Active :=False;
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('SELECT otkr FROM sklad_ostatki WHERE kran='+n1);
     ADOQuery1.Active:=True;
     Label2.Caption:= ADOQuery1.Fields[0].AsString;
     ADOQuery1.Active :=False;
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('SELECT v_tare FROM sklad_ostatki WHERE kran='+n1);
     ADOQuery1.Active:=True;
     Label1.Caption:= ADOQuery1.Fields[0].AsString;
    end
 else
  begin
  Button1.Enabled :=false;
  end;
end;

Хочу создать процедуру :

ADOQuery1.Active :=False;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT imya FROM sklad_ostatki WHERE kran='+n1);
  ADOQuery1.Active:=True;
  if ADOQuery1.RecordCount > 0 then
    begin
     Button1.Enabled :=true;
     Button1.Caption:= ADOQuery1.Fields[0].AsString;
     ADOQuery1.Active :=False;
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('SELECT otkr FROM sklad_ostatki WHERE kran='+n1);
     ADOQuery1.Active:=True;
     Label2.Caption:= ADOQuery1.Fields[0].AsString;
     ADOQuery1.Active :=False;
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('SELECT v_tare FROM sklad_ostatki WHERE kran='+n1);
     ADOQuery1.Active:=True;
     Label1.Caption:= ADOQuery1.Fields[0].AsString;
    end
 else
  begin
  Button1.Enabled :=false;
  end;

чтобы каждый раз этот код не писать, но Делфи ругвется на ADOQuery1 ( [dcc32 Error] 1.pas(131): E2070 Unknown directive: 'ADOQuery1')

[Stilet]

Ну так ты такой компонент не кинул на форму.
Или процедура у тебя не метод формы, где этот компонент.

[MixanMM]

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

Ну так ты такой компонент не кинул на форму.
Или процедура у тебя не метод формы, где этот компонент.

Ну нет, на форме то он присутсвует, в первом коде отрабатывает по нажатию кнопки.

[Stilet]

Значит процедура не является методом формы )
Значит или делать ее методом, или писать полный путь: Form1.ADOQuery.Бла-Бла-Бла...

[MixanMM]

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

Значит процедура не является методом формы )
Значит или делать ее методом, или писать полный путь: Form1.ADOQuery.Бла-Бла-Бла...

Спасибо, все заработало через Form1.ADOQuery1.Бла-Бла-Бла.
Но теперь другой вопрос, как в параметр передать кнопку Баттон? Т.е. что бы передавать в процедуру каждый раз разную кнопку ?
примерно так -

zapr('1', Form1.Button1);

и сама процедура :

procedure zapr (n1:string; Button:TObject);
begin
  Form1.ADOQuery1.Active :=False;
  Form1.ADOQuery1.SQL.Clear;
  Form1.ADOQuery1.SQL.Add('SELECT imya FROM sklad_ostatki WHERE kran='+n1);
  Form1.ADOQuery1.Active:=True;
  if Form1.ADOQuery1.RecordCount > 0 then
    begin
     Button.Enabled :=true;
     Button.Caption:= Form1.ADOQuery1.Fields[0].AsString;
     Form1.ADOQuery1.Active :=False;
     Form1.ADOQuery1.SQL.Clear;
     Form1.ADOQuery1.SQL.Add('SELECT otkr FROM sklad_ostatki WHERE kran='+n1);
     Form1.ADOQuery1.Active:=True;
     Form1.Label2.Caption:= Form1.ADOQuery1.Fields[0].AsString;
     Form1.ADOQuery1.Active :=False;
     Form1.ADOQuery1.SQL.Clear;
     Form1.ADOQuery1.SQL.Add('SELECT v_tare FROM sklad_ostatki WHERE kran='+n1);
     Form1.ADOQuery1.Active:=True;
     Form1.Label1.Caption:= Form1.ADOQuery1.Fields[0].AsString;
    end
 else
  begin
  Button.Active:=false;
  end;
end;

то что подчеркнул, там и получается затык

[Stilet]

Нужно так:

procedure zapr (n1:string; Button:TButton)

[MixanMM]

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

Нужно так:

procedure zapr (n1:string; Button:TButton)

Нижайший, вам, поклон, Виталий

[Stilet]

Спасибо ) ...