[icWasya]

Ну если пишешь StringGrid.ColCount и.т.п, то гдето выше надо написать

Код:

Var
  StringGrid : TStringGrid;
...
begin
if not (Sender is TStringGrid) then Exit;
 StringGrid := Sender as TStringGrid;

и далее во всей процедуре заменить (Sender as TStringGrid) на StringGrid;