[icsander]

Код

Код:

if (bt = true) then
begin
 if (gdFocused in State) then
    begin
      if (ACol<>ARow) then
        begin
         bt:=false;
        // ShowMessage('llllll');
       end;
      end;
 end;
end;

вообще лишний.
<bt> - не при делах.
Форма вызывается только при клике на ячейке грида (procedure TForm1._sg1Click(Sender: TObject).
ShowMessage('llllll'); - да, будет вызываться при перерисовке.