Если я правильно помню, вы работает в Delphi? Вот пример:
Code
procedure drawFontSingle(Font:EFont;PositionX,PositionY:Single;Aling:Integer;SingleVar:Single); var s:string; begin s:=FloatToString(SingleVar); drawFont(Font,PositionX,PositionY,Aling,s); end;