ein Edit-Feld über eine Funtion/Procedure ändern

[cRayZo]

Hallo, ich habe mir eine procedure geschireben, mit der ich ein edit-Feld auf seinen Inhalt prüfen kann.
Wenn der Inhalt inkorrekt ist, soll dieser gelöscht werden. Er wird aber nicht gelöscht, alles andere funktioniert ohne Probleme.
Wäre super wenn ihr mir helfen könnt!
Gruß cRayZo

Delphi-Quellcode:

procedure intcheck(LabelName:string);
var
i:      integer;
begin

 for i := 1 to length(LabelName) do begin
      if not (LabelName[i] in ['0','1','2','3','4','5','6','7','8','9']) then begin
         showmessage('ungültiges Zeichen');
         LabelName:='';         //<--- diese Zeile funktionier nicht
         exit;
      end;
   end;

if LabelName='' then exit else
if strtoint(LabelName)>15 then begin    
      showmessage('bitte Zahlen bis 15 eingeben');
      LabelName:='';            //<--- diese Zeile auch nicht nicht, ansonsten alles paletti
      exit; end;

end;