我来帮你！
用DelphiX自带的帮助中的Graph/AlphaBlending例程，
主要是以下几句
ImageList.Items[0].DrawWaveX(DXDraw.Surface, 50, 30, 320, 90, 0, 2, 80, FAngle*4);
ImageList.Items[0].DrawAdd(DXDraw.Surface, Bounds(80, 20, 128, 32),
0, Trunc(Cos256(FAngle)*126+127));
ImageList.Items[0].DrawAdd(DXDraw.Surface, Bounds(90, 30, 128, 32),
0, Trunc(Cos256(FAngle+128)*126+127));
ImageList.Items[0].DrawRotateAlpha(DXDraw.Surface, DXDraw.Surface.Width div 2,
DXDraw.Surface.Height div 2, 320, 90, 0, 0.5, 0.5, FAngle, Trunc(Cos256(FAngle)*126+127));
总有一款适合你！
Good Luck!
