폼이 없는 프로그램입니다.

이벤트 를 연결할수없어요. 도와주세요.

unit uTest;

interface
.
.폼이 없습니다.
.
procedure testScrCapture(aImage : TImage);
var  bTimer: TTimer;
    procedure TimerStart(Sender: TObject);
    begin
      ScrCapture(aImage);
      bTimer.Enabled := false;
      bTImer.Free;
      bTimer := nil;
    end;

begin
  bTimer := TTimer.Create(nil);
///////////////////////////////////////////////////////////////////////////////////////////////////////////
  bTImer.OnTimer  := TimerStart;  //여기서 에러 입니다.
                                                   //E2009 Incompatible Types: 'method pointer and regular procedure'
  //////////////////////////////////////////////////////////////////////////////////////////////////////////         
  bTimer.Interval := 1000;
  bTImer.Enabled := true;
  while bTimer <> nil do ;
end;