[maestrodan]

насчет частоты проца, PassCall, не совсем понял, можно подробнее?
насчет realtostring вроде нарыл
var
R:real;
s:string
begin
s:=integerToString(trunc(R))+','+integerToString(t runc(frac(R)*1000));
end;