beim leeren feld oder wenn der wert zu klein ist

[almanciyabanci]

Hallo alle zusammen,

ich möchte wen edit1 feld leer ist oder wen der wert (zahl) kleiner als 4 ist soll eine fehlermeldung kommen..

wen edit1 leer ist funktioniert es mit dem code unten

Code:

 
if  (Edit1.GetTextLen = 0 )then
     begin
      ShowMessage(' Wert eintragen');
     end
else

jedoch sobald ich der anweisung sagen <= 4 klappt es nicht, ich bekommen bis zu einem wert von 9999 die ShowMessage und erst bei einem wert von 10000 bekomme ich ShowMessage nicht mehr.

Code:

if  (Edit1.GetTextLen <= 4 )then
     begin
      ShowMessage(' Wert eintragen oder der wert ist kleiner als 4');
     end
else