delphi 图形图象的问题(300分)

一
1.怎么在drawGrid1 格内画一个球体。
2 怎么在drawGrid1 格内显示图片。
3.怎么象 彩色连珠 每个珠子生成，移动，消失时有动画效果。
二
1.怎么制作浮动的提示栏，有点象词霸的形式（但提示栏可以作成不规则形状）
2.有delphi开发游戏，图形图象的网站吗。

谢谢

一些源程序：
http://delphi.freemai.com/Default.asp?classid=2&Nclassid=9
一些链接：
http://www.lj21cn.8u8.com/

去找这个帖子的楼主
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2519305
对他来说小菜

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
var
bmp:TBitmap;
begin
with DBGrid1.Canvas do
begin
Fillrect(Rect);
try
bmp:=TBitmap.Create ;
bmp.Assign('.......');
Draw(Rect.Left ,Rect.Top ,bmp);
finally
bmp.Free;
end
end;
end;

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
var TempBmp:TBitmap;
begin
Try
TempBmp:=TBitmap;
TempBmp.LoadFromFile('BmpName');
DBGrid1.Canvas.Draw(0,0,TempBmp);
Finally
FreeAndNil(TempBmp);
End;
end;