У тебя ж функция имеет 2 параметра:
function ProvInputDrobn (
ch: char; str: string): Boolean;
А ты заполняешь только один:
Код:
if not ProvInputDrobn(Key)(тут) then key:=chr(0);
// ты должен указать еще строку:
if not ProvInputDrobn(Key, s) then key:=chr(0);