procedure checkInteger(st: string); begin if isInteger(st) then begin //Der übergebene Wert ist eine Zahl end else begin //Der übergebene Wert ist keine Zahl end; end;