几星级的效果(200分)

比如有一个表，产品名称，产品级别
产品级别分别为1，2，3，4数字类型，我想在grid中显示 产品名称与产品级别，根据级别为1显示出一颗小星星，如果为2显示出2颗小星星，这样的效果怎么做啊

晕，自己画不就行了？
放个图片到imagelist里
procedure TForm1.StringGrid1DrawCell(Sender: TObject;
ACol, ARow: Integer;
Rect: TRect;
State: TGridDrawState);
var
i,tx,ty:integer;
begin
if (ACol=1) then
begin
tx:=rect.Left+2;
ty:=rect.Top+(rect.Bottom-rect.Top-imagelist1.Height) div 2;
for i:=0 to ARowdo
{我这里根据行数显示图片数量，具体显示几个你根据数据判断}
begin
ImageList1.Draw(TStringGrid(Sender).Canvas,tx,ty,0);
inc(tx,imagelist1.Width+2);
end;
end;
end;

可以把1星、2星。。。制作成图片存在一个数据表中，然后像普通显示图片一样显示即可。

图片放到ImageList中，自己画到grid里

哎,直接outtextxy(x,y,'★');