Shutdowntool - bitte testen

[daoki]

Delphi-Quellcode:

procedure TMain.EditStuKeyPress(Sender: TObject; var Key: Char);
begin
   if (not (Key in ['0'..'9',#8]))  or
      ((Length(EditStu.Text) = 2) and (Key <> #8)) or
      ((Length(EditStu.Text) = 1) and ((EditStu.Text[1] = '2')
                                and (not(Key in ['0'..'3',#8])))) then
   begin
      ShowMessage('Bitte eine gültige uhrzeit eingeben!');
      EditStu.SetFocus;
      EditStu.Clear;
   end;
end;

jetzt kommt zwar immer die meldung bei einem ungültigen zeichen aber sobald ich auf ok drücke ist der buchstabe trotzdem da!
was ist da jetzt los?
Bitte helfen