StringGrid: вставка картинок

[Grass-snake]

Всем привет!
У меня появилось задание: нужно нарисовать кружок (Canvas) в ячейке StringGrid, но только текстом с текстом.
Например так: "Текст + Круг + Текст". Все это в одной ячейке.
Так, чтобы ни текст, ни круг не перекрывали друг друга. Когда пытаюсь это сделать, получается что круг рисуется поверх текста.

Если необходимо, могу загружать картинку из TImageList.
Если обычный StringGrid не может это, готов использовать другой компонент, аналог StringGrid.
Редактирование текста не нужно.

[Stilet]

Когда пытаюсь это сделать, получается что круг рисуется поверх текста.

Видать координаты путаешь. Показывай как отрисовываешь, все там норм:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[1,1]:='текст1 текст2';
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var i,p:integer;
begin
 with TStringGrid(sender) do begin
   if Cells[ACol,ARow]='' then exit;
   Canvas.FillRect(Rect);
   p:=pos(' ',Cells[ACol, ARow]);
   i:=Canvas.TextWidth(copy(Cells[ACol, ARow],1,p));
   Canvas.TextOut(Rect.Left,Rect.Top,copy(Cells[ACol, ARow],1,p));
   Rect.Left:=Rect.Left+i;
   Canvas.Ellipse(Rect.Left,Rect.Top,Rect.Left+10,Rect.Top+10);
   Rect.Left:=Rect.Left+10;
   Canvas.TextOut(Rect.Left,Rect.Top,copy(Cells[ACol, ARow],p,Length(Cells[ACol, ARow])));
 end;
end;

end.

[Grass-snake]

Спасибо большое за код, всё работает!
А я просто рисовал текст на канве...