Código Delphi [-] procedure TMiForma.Proc1; var I: Integer; begin for I := 0 to 9 do Proc2 end; procedure TMiForma.Proc2; begin // Hacer algo end; procedure TMiForma.Button1Click(Sender: TObject); begin Proc1 end;
procedure TMiForma.Proc1; var I: Integer; begin for I := 0 to 9 do Proc2 end; procedure TMiForma.Proc2; begin // Hacer algo end; procedure TMiForma.Button1Click(Sender: TObject); begin Proc1 end;