procedure TfrmCMPMain.grdOperDrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumn;
 State: TGridDrawState);
var
 DrawState: Integer;
 DrawRect: TRect;
begin
 if (gdfocused in State) then
 begin
   if (Column.Field.FieldName = 'test') then
   with button do
   begin
     Left := Rect.Left + grdOper.Left + 2;
     Top := Rect.Top + grdOper.Top + 2;
     Width := Rect.Right - Rect.Left;
     Width := Rect.Right - Rect.Left;
     Height := Rect.Bottom - Rect.Top;
     Visible := True;
   end
 end;