procedure Tform.buttonClick(Sender: TObject);
      VAR .... : ...;

       // hier Quelltext der Prozedur Pause hin kopieren

      begin
      //Methoden-Quelltext mit der Schleifenstruktur
      FOR i:=1 TO 10 DO
       Begin
       //tue irgend was
       PAUSE(10);
       END;
      end;