Проблема с событием StringGrid'a - SelectCell

[Heng]

Незнаю как через объект вытащить процедуру

procedure TGenTab.Muve(StringGrid1:TStringGrid;ACol, ARow: Integer; var CanSelect: Boolean);
begin

 with Form1.StringGrid1 do
    begin
      if (ACol > 0) and (Cells[ACol-1, ARow ] = '') then
        begin cells[acol-1,arow]:=cells[ACol,arow]; cells[ACol,arow]:='' end
       else if (ACol < ColCount-1) and (cells[ACol+1,arow]='') then
        begin cells[acol+1,arow]:=cells[ACol,arow]; cells[ACol,arow]:='' end
       else if (ARow >0) and (cells[ACol,ARow-1]='') then
        begin cells[acol,arow-1]:=cells[ACol,arow]; cells[ACol,arow]:='' end
       else if (ARow <RowCount-1) and (cells[ACol,ARow+1]='') then
        begin cells[acol,arow+1]:=cells[ACol,arow]; cells[ACol,arow]:='' end
    end;

end;

и повесить ее на событие

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  Move.create(True);
  Move.Muve(StringGrid1,ACol,ARow,CanSelect);

end;

Help me !!!