Something like
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer;
Column: TColumn; State: TGridDrawState);
begin
if Column.DesignIndex = 0 then
begin
StaticTexr1.SetBounds(Rect.Left, Rect.Top, Rect.Width, Rect.Height);
end;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
but it doesn't work.