[denverus]

А у меня не получается перенести переменную qw123 с 2ой на 3ю форму. Главное переменную видно во всех процедурах, а на другой форме нет. Она там будт видна толкьо когда я присвою ей значение сразу же при открытии формы, т.е. в самом конце перед "end."

var
Form2: TForm2;
qw:integer;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TForm2.k(Sender: TObject);
begin
form1.close;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
form1.show;
form2.close;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
form3.show ;
form2.close ;
end;

procedure TForm2.DBLookupComboBox1Click(Sender: TObject);
var
s11:integer;
begin

q:=DBLookupComboBox1.KeyValue;

Label4.Caption:=inttostr(qw123);
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADoquery2.sql.text := 'select wbs_id, wbs_short_name, parent_wbs_id,wbs_name from PROJWBS';
ADoquery2.sql.add ('Where parent_wbs_id=:q order by wbs_short_name');
ADoquery2.parameters.paramByName('q').value := q;
ADOQuery2.ExecSQL;
ADoQuery2.open ;
s11:=Adoquery2.recordcount;
label2.Caption:=inttostr(s11);

end;

procedure TForm2.FormCreate(Sender: TObject);
var s:integer;
begin

s:=Adoquery1.recordcount;
//label2.Caption:=inttostr(s);
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
form1.show;
form2.close;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
ShowMessage(inttostr(qw123));

form3.show ;
form2.close ;
end;

procedure TForm2.BitBtn3Click(Sender: TObject);
begin
form1.close;
end;

procedure TForm2.DBGrid1CellClick(Column: TColumn);
var
e,e1:string;
begin

e:=Adoquery2.FieldByName(Column.FieldName).asstrin g;
label5.Caption:=e;
e1:=DBGrid1.Columns[3].Field.asstring;

qw123:=strtoint(e1);
Label1.caption:=inttostr(qw123);
end;

//если тут присвоить к qw123 переменую она перенесётся на 3ю форму

end.