function TFadeEffect.FadeInText(Target: TCanvas; X, Y: integer; FText: string):

 TRect;

var

 Pic: TBitmap;

 W, H: integer;

 PicRect, TarRect: TRect;

begin

 Pic := TBitmap.Create;

 Pic.Canvas.Font := Target.Font;

 W := Pic.Canvas.TextWidth(FText);

 H := Pic.Canvas.TextHeight(FText);

 Pic.Width := W;

 Pic.Height := H;

 PicRect := Rect(0, 0, W, H);

 TarRect := Rect(X, Y, X + W, Y + H);

 Pic.Canvas.CopyRect(PicRect, Target, TarRect);

 SetBkMode(Pic.Canvas.Handle, Transparent);

 Pic.Canvas.TextOut(0, 0, FText);

 FadeInto(Target, X, Y, Pic);

 Pic.Free;

 FadeInText := TarRect;

end;

procedure TFadeEffect.FadeOutText(Target: TCanvas; TarRect: TRect; Orig:

 TBitmap);

var

 Pic: TBitmap;

 PicRect: TRect;

begin

 Pic := TBitmap.Create;

 Pic.Width := TarRect.Right - TarRect.Left;

 Pic.Height := TarRect.Bottom - TarRect.;

 PicRect := Rect(0, 0, Pic.Width, Pic.Height);

 Pic.Canvas.CopyRect(PicRect, Orig.Canvas, TarRect);

 FadeInto(Target, TarRect.Left, TarRect., Pic);

 Pic.Free;

end;