[Tensh]

А почему один пробел так всё изменил?

Теперь ругается: not enough actual parameters

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not ProvInputDrobn(Key)(тут) then key:=chr(0);
end;