y:= StoredProcedure1KDVsiz.AsString; x:=strtofloat(y); ss[1] := FormatSt(floattostrf(x,ffCurrency,20,0),1,20,' ' );