[eXplorer]

Спасибо! подстроил код под себя:

Код:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
    if (ACol=2) and (ARow=2) then
    begin
      ColorBox1.Parent:=Self;
      ColorBox1.Left:=Rect.Left+StringGrid1.Left+2;
      ColorBox1.Top:=Rect.Top+StringGrid1.Top+2;
      ColorBox1.Width:=Rect.Right-Rect.Left;
      ColorBox1.Visible:=True;
    end;
  end;
end.