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;