Seçilen Para Birimlerinin Label’da Anlık Gösterilm

procedure SelectFromUSD;

begin

  FromCurrency := 'USD';

  FromLabel.Text := 'Kaynak: USD';

end;

procedure SelectToEUR;

begin

  ToCurrency := 'EUR';

  ToLabel.Text := 'Hedef: EUR';

end;

procedure ConvertCurrency;

begin

  // dönüşüm işlemi yapılıyor...

  ResultLabel.Text := FloatToStr(amount) + ' ' + FromCurrency + ' = ' + FloatToStr(resultAmount) + ' ' + ToCurrency;

end;

Projede kullanıcı, bir miktar para girip, kaynak ve hedef para birimini seçerek dönüşüm yapabiliyor. Her şey sorunsuz çalışıyor fakat kullanıcı USD veya EUR gibi butonlara bastığında seçilen para birimi aşağıda metin olarak görünmüyor ya da güncellenmiyor.