[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;