Zmiana separatora dziesiętnego

Panowie i Panie!

Czy jest możliwość zmiany systemowego symbolu dziesiętnego jakąś krótką procedurką podpiętą np pod kliknięcie buttona?

szukales?
cos mi sie wydaje ze nie bo ja znalazlem to momentalnie uzywajac wyszukiwarki forum i googli.
http://4programmers.net/Forum/Delphi_Pascal/39079-Zanim_cos_napiszesz_-_CZYTAJ_TO

Nie szukał, bo po co...

Z pierwszej stronki w GOOGLE, które jak zgaduję u Ciebie nie działa?.

var
  amount : Currency;
begin
  amount := 12.34;    // 12 pounds 34 pence

  // Display with the default decimal point character
  ShowMessage('Amount = '+FloatToStrF(amount, ffCurrency, 10, 2));

  // Display with a new decimal point character
  DecimalSeparator := '|';
  ShowMessage('Amount = '+FloatToStrF(amount, ffCurrency, 10, 2));
end;

Tak, i to dość długo. Czyżby do kitu było to moje szukanie? :-/

Już wiem o co chodzi, niedokładnie się wyraziłem czego szukam: czy istnieje możliwość zmiany separatora ustawionego w systemie operacyjnym w ust. regionalnych?

Google dalej nie działa?

http://www.google.pl/search?hl=pl&source=hp&q=delphi+set+decimal+separator+for+windows&aq=f&aqi=&aql=&oq=&gs_rfai= czwarta odpowiedź od góry:
http://www.greatis.com/delphicb/tips/lib/system-setseparator.html

Wpisz zatem po polsku tę frazę w googlach i sprawdź czy jest aż tyle odpowiedzi.

1. Wpisuję w google frazę: delphi zmiany systemowego symbolu dziesiętnego
2. Wyświetlają się wyniki
3. Jadę na sam dół
4. Czytam: Zobacz wyniki wyszukiwania przetłumaczone z języka angielskiego dla: delphi zmiany systemowego symbolu dziesiętnego
5. Naciskam lewy klawisz myszki
6. Znajduję odpowiedź na pierwszym miejscu wyszukiwania
7. Uznaję, że nie umiesz korzystać z google ;)
8. GOTO 7

dlatego ja nigdy nie szukam na polskich stronach. najwiecej informacji znajdziesz po angielsku, a jesli go nie znasz to juz nie problem tego forum.

można np. za pomocą skryptu ....
w notatniku wpiszesz sobie
................................................................................................................................

Option Explicit

Dim WSHShell, n, MyBox, p, itemtype, Title, vbdefaultbutton

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Control Panel\International"
p = p & "sDecimal"
itemtype = "REG_SZ"
n = "."

WSHShell.RegWrite p, n, itemtype
Title = "Separator dziesiętny został zmieniony" & vbCR
Title = Title & "na kropke"
MyBox = MsgBox(Title,64,"Zakończone")

................................................................................................................................

zapisz z rozszerzeniem .vbs

w tym przykładzie skrypt zmienia separator na kropke,
rodzaj separatora ustawiany jest w zmiennej "n"