Para Biriminde Kuruş'u almak

[Firarist]

Merhaba
Bir editte bulunan 1.234,45 gibi bir para birimi ifade eden rakamın TL ve Kr kısımlarını ayrı iki editte göstermek istiyorum. Nasıl yapabilirm arkadaşlar?

Birince editte 1.234, ikincisinde 45 gibi.
İlginize şimdiden teşekkürler.

[ylmz]

var
a, b, c: Double;
begin
a:=124.5545;
b:=Int(a); //tam kısmı
c:=Int(frac(a)*100); //ondalık kısmı
end;