التأكد من double داخل TEdit

السلام عليكم

إذا كنت ترغب فقط بأن يدخل ارقام بدون فاصلة استخدم الكود التالي

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) and not (Key = #8) then key := #0;
end;

أما إذا كانت ارقام وفاصلة فاستخدم الكود التالي

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) and not (Key = #8) and not (key='.') then key := #0;
end;

هناك ملاحظة على الكود أرجو تصحيحها

هذا الكود يقبل (في حالة السماح بإدخال الفاصلة) أن يدخل المستخدم أكثر من فاصلة

يعني 1.....2 هو رقم مقبول عنده بينما من المفترص أن يكون الرقم 2.1 أو 1.2