عدم السماح بادخال اكثر من رقمين بعد الفاصلة

[cargem]

كود :

procedure TForm1.advdtDailyRateChange(Sender: TObject); begin advdtDailyRate.AutoThousandSeparator:=True; end;