¿Qué tal algo así?
Código Delphi
[-]
function ImprimeCurrency(C: Currency): String;
begin
Result := IntToStr(Trunc(100*C));
end;
O bien, si necesitas redondeo:
Código Delphi
[-]
uses Math;
function ImprimeCurrency(C: Currency): String;
begin
C := RoundTo(C, -2);
Result := IntToStr(Trunc(100*C));
end;
// Saludos