procedure ButtonEingabe_OnClick(Sender: Integer); var aValue: string; begin; if Input_Query('Eingabe', 'Bitte Jahr definieren:', aValue) then begin if isInteger(aValue) then begin //Hier weitere Behandlung ... end else begin message_dlg('Eingabe ist keine gültige Zahl!'); end; end; end;