[lmikle]

Код:

procude EditCli(TypeCli: TCliType; CliID: variant = null);

Вот так. Дефолтными могут быть только последние параметры.
Еще вопрос. А зачем ты используешь вариант, когда у тебя там явный тип (Integer)?