[Black Raider]

в модуль формы Form1 перед End.
в описание формы вписать :

Код:

procedure Regress(num: integer);

примерно выглядеть будет так:

Код:

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    sNotebook1: TsNotebook;
    sLabel1: TsLabel;
    Image1: TImage;
    Button1: TButton;
    Image2: TImage;
    Button2: TButton;
    Notebook1: TNotebook;
    BitBtn2: TBitBtn;
    StringGrid1: TStringGrid;
    procedure Regress(num: integer);
procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

для вызова процедуры в обработчике события кнопки (например) вызываете по ее имени!