[Geref]

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

Работает:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Form32_.Visible then
    form32_.Show;

  PB.Position := PB.Position + 1;
  Form32_.PB.Position := Form32_.PB.Position + 1;
end;

Работает! Большое спасибо!

проблема здесь

Код:

TForm2.Create(self).Show;

надо было )))

Код:

Form2.Show;