ein Ansatz um nur Zahlen zuzulassen:
Delphi-Quellcode:
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0', '1', '2', '3','4','5','6','7','8','9', #8]) then
Key := #0
else
if not (Key = #8) then
if (StrToInt(edt1.Text + Key) > 24) or (Length(edt1.Text + Key) > 2) then
Key := #0
end;
Dann halt noch prüfen was bereits eingegeben wurde.
Mit dem ersten Zeichen kann man es ähnlich lösen