Vielleicht hilft Dir das weiter. Achtung! Keine Fehlerkontrolle!
Delphi-Quellcode:
function EuroToCt (const Euro: Single) : String;
begin
Str(euro*100:8:2,Result);
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add(EuroToCt(1.71));
end;