[jachguate]

Otra opcion es:

Código Delphi [-]
Procedure TForm1.Button1Click(Sender : TObject);

  procedure OtroProcedimiento;
  begin
    //hacer algo
  end;

var
  i : integer;
begin
  for i := 1 to 50 do
    OtroProcedimiento;
end;

Hasta luego.