-----------------------선언부----------------------
var
  Form1: TForm1;
  procedure Evlnk(SG: tstringgrid);
  procedure GoStringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);


-----------------------연결부----------------------

procedure Evlnk(SG: tstringgrid);
   .
   .
   .
   SG.OnDrawCell:= ?           // <- 이벤트프로시저에 GoStringGrid1DrawCell (일반프로시저) 연결
   .
   .
   .
end;

-----------------------프로시저 정의부----------------------

procedure OnStringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
   .
   .
   .
end;

---------------------------------------------------------------
---------------------------------------------------------------

전역으로 선언된 Evlnk에 스트링그리드(SG)를 인자로 넘겨서 호출하면, 전역프로시저인 OnStringGrid1DrawCell을 스트링그리드(SG)의 OnDrawCell 이벤트로 연결하는 방법을 찾고 있습니다.
덕있는 분의 감사한 은혜를 기다립니다.