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