Сделать значки в DbGrid на каждой строчке или кнопки

procedure TForm11.sDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Im1:TBitmap;
begin
  Im1:=TBitmap.Create;
  if Column.FieldName='del' then
    begin
   with sDBGrid1.Canvas do
    begin
      Brush.Color:=clWhite;
      FillRect(Rect);
      if (sDBGrid1.DataSource.DataSet.FieldByName('del').Value=1) then
        begin
           ImageList1.GetBitmap(0,Im1)
        end;
        Draw(round((Rect.Left+Rect.Right-Im1.Width)/2),round((Rect.Top+Rect.Bottom-Im1.Height)/2),Im1);
    end;
    end;
end;

if Column.FieldName='del' then

if Column.Index= ... then

begin
  ImageList1.GetBitmap(0,Im1)
end;

if (sDBGrid1.DataSource.DataSet.FieldByName('del').Value=1) then
        begin
           ImageList1.GetBitmap(0,Im1)
        end;
        Draw(round((Rect.Left+Rect.Right-Im1.Width)/2),round((Rect.Top+Rect.Bottom-Im1.Height)/2),Im1);
end;

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Var P: TGridCoord;
begin
P:=DBGrid1.MouseCoord(X, Y);
Caption:=IntToStr(P.X)+' - '+IntToStr(P.Y);
end;

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  coor := DBGrid1.MouseCoord(X, Y); // в coor всегда будут хранится Row Col таблицы, над которыми мышка
end;
// остальное - дело техники:
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
 if(coor.X = 1) then // первый столбец и т.д.
  begin
   .................
  end;
end;