grid cell 의 커서 변경하기

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
 _Row,_Col : Integer;
begin
 // 현재 마우스가 위치한 Cell의 Row, Column을 알아낸다.
 StringGrid1.MouseToCell(X,Y,_Col, _Row);
 if _Col in [1,3,5] then begin
   StringGrid1.Cursor := crHandPoint;
   // Focus 이동
   StringGrid1.Row := _Row;
   StringGrid1.Col := _Col;
 end else begin
   StringGrid1.Cursor := crDefault;
 end;
end;