Function tform1.tltoytl(PARA:CURRENCY):CURRENCY;
Var
Lira, Kurus, Kalanlar : LongInt;
begin
// İlk olarak Yeni TL kısmını alalım...
Lira := Trunc(Para / 1000000);
// Geri kalanları ayırıp değerlendirmeye alalım...
Kalanlar := Trunc(Para - (Lira * 1000000));
// Kalanların ilk iki hanesi Yeni Kuruş
Kurus := Trunc(Kalanlar/10000);
// Kalanların 0.5'den büyükse Kuruşa (+1) ekle...
Kalanlar := Trunc(Kalanlar - (Kurus * 10000 ));
If (Kalanlar-5000) >= 0 then Inc(Kurus);
Result := Lira + (Kurus/100);
end;
Kullanımı
edit2.Text:= CurrToStr(TLTOYTL(StrToCurr(edit1.Text)));