[alba13]

Código Delphi [-]
function veces :integer;
begin
      result :=strToInt(Form4.Edit1.Text);
end;
 
procedure TForm4.Button1Click(Sender:TObject);
begin
       form2.visible := true;
       form2.calculoPi(veces);
end;
 
//en el form2
public procedure calculoPi(veces:integer);
begin 
end;