Ds da war doch gestern schon mal ähnlich da, oder ?
Code:
if pos (DecimalSeparator,text) <> 0 then begin // Komma überhaupt da ??
then
key := #0; // zweites Komma unterdrücken
Bau das doch so um, daß das Leerzeichen einfach von Anfang an unterdrückt wird.