Problem mit d := System.Double.Parse(TextBox1.Text);

[gfjs]

Hallo, Allerseits.

Delphi-Quellcode:

try
  d := System.Double.Parse(TextBox1.Text);
  Label1.Text := d.ToString;
except
  MessageBox.Show('Sie können hier nur eine Zahl eingeben!');
  TextBox1.Clear;
  self.ActiveControl := TextBox1;
end;

Zu diesem Quelltext habe ich folgende Frage:

Wenn ich eine Zahl mit einem Komma eingebe (z.B. 1,25) funktioniert alles perfekt.
Wenn ich eine Zahl mit einem Dezimalpunkt eingebe, steht in Label1 "125", also nur die Ziffern ohne Dezimalpunkt und es kommt auch keine Fehlermeldung.
Sonstige Falscheingaben (Buchstaben, zwei Kommas, etc.) funktionieren auch.

Warum wird bei der Eingabe eines Dezimalpunkts im Label der Dezimalpunkt nicht angezeigt und auch keine Fehlermeldung erzeugt?

Ich bin für jede Hilfestellung dankbar.

mfg gfjs