über best. Zahl in edt -> Message

[Matze]

Delphi-Quellcode:

procedure TTaetigkeiten.Button1Click(Sender: TObject); 
var i: integer;
begin 
  i:=StrToInt(mo_std_1.Text)
  if i > 15 then 
  ShowMessage('Über 15 nicht erlaubt'); 
end;