GetTextLen liefert dir nur die Textlänge (9999 = 4 Zeichen lang).
Der Inhalt eines Editfeldes steht in Edit1.Text drin.
Für den Zahlenvergleich musst du den Text in eine Zahl umwandeln. Die Umwandlung kannst du mit StrToInt(Edit1.Text) machen.
IntToStr kann auf einen Umwandlungsfehler laufen, diesen solltest du mit einem try abfangen.
Zusammenfassend käme dann folgendes raus:
Delphi-Quellcode:
try
if StrToInt(Edit1.Text) <= 4 then
begin
ShowMessage('Der Wert ist kleiner als 4');
end;
except
ShowMessage('Bitte eine gültige Zahl eintragen');
end;