[[maeyanes]]

Esto es lo que deseas hacer?

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;

Saludos...