procedure TMain.CRDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if strtoint(ACCESS)=1 then
begin
 TeSpeedButton2.Enabled:=true;
end;
with tcustomdbgridcracker(sender) do
 if datalink.activerecord = row - 1 then
 begin
   CRDBGrid1.Canvas.brush.color := clred;
   idTabel:=datalink.Fields[0].AsInteger;
 end
else
 CRDBGrid1.Canvas.brush.color := clwhite;
end;