Currency na Integer

Witam:)
Pomocy!

Mam kodzik który zlicza mi różne kwoty po ich podsumowaniu otrzymuje wartość 1 048,00 zł
i teraz musze mieć 1048 tylko zamieniam to na string usówam niepotrzebe śmieci

scena:= CurrToStrF(Suma, ffCurrency, 2);
s:=pos(',',scena);
Delete(scena, s, 6); 

i niby jest ok przecine zera wyleciały
ale zato wkrada mi się jakiś separator pomiędzy 1 0 z racji tego że jest to wartość tysięczna
i niestety przy konwersji z powrotem na Integer

StrToInt(scena) 

wysypuje się :( Ma ktoś jakiś pomysł jak się pozbyć tego separatora ??

scena:= CurrToStrF(Suma, ffCurrency, 2)

Spróbuj

scena:= CurrToStrF(Suma, fffixed, 2);

Trim(scena);

Hallo nekbet!

Sprobuj funkcji frac() i int():

procedure TForm1.Button1Click(Sender: TObject);
var
   suma: currency;
begin
  suma := 1048.50;

  label1.caption := FloatToStr(frac(suma));
  label2.caption := FloatToStr(int(suma));
end;

Pozdrawiam
Markus