procedure TextOut(const x, y ,fontSize: Integer; FColor, BColor: TColor; s: string;FontName:TFontName ); begin SetBkMode(Self.Canvas.Handle, TRANSPARENT); Canvas.Font.Size := fontSize; Canvas.Font.Name :=FontName; Canvas.Font.Color := BColor; Canvas.TextOut(x-1,y-1,s ); Canvas.TextOut(x,y-1 ,s); Canvas.TextOut(x+1,y-1,s); Canvas.TextOut(x+1,y,s); Canvas.TextOut(x+1,y+1,s); Canvas.TextOut(x,y+1,s); Canvas.TextOut(x-1,y+1,s); Canvas.TextOut(x-1,y,s); Canvas.Font.Color := FColor; Canvas.TextOut(x,y,s); end;