Zamiana"." na ","

Studiowałem już poprzednie posty ale jakoś mi nie wychodzi to [glowa] Mianowicie chcę aby po wciśniećiu klawisza "." (kropka) automatycznie robiła sie zamiana na przecinek np:
zamiast wpisu 34.63
otrzymac 34,63

Dzieki za pomoc

w OnKeyPress memo(albo edita zalezy w co wpisujesz) wpisz:

if Key = #nr_asci_kropki then
Key := #nr_asci_przecinka;

w onkeypress dajesz :

if key='.' then key:=',';