[Defmzk]

form2

Код:

public
b :integer;

form 1

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 form2.b : = 1;

end;

Код:

procedure TForm1.Button10Click(Sender: TObject);
begin
 form2.b : = 10;

end;

только если форм2 ещё не создана - будет ошибку выдавать.