[Laymer]

Скачал IdReply.pas, но при переводе в *dcu компилятор ругается вот на это...

Код:

procedure TIdReply.SetCode(const AValue: string);
var
  LMatchedReply: TIdReply;
begin
  EIdException.IfFalse(CheckIfCodeIsValid(AValue), Format(RSReplyInvalidCode, [AValue]));
  // Only check for duplicates if we are in a collection. NormalReply etc are not in collections
  // Also dont check FReplyTexts, as non members can be duplicates of members
  if Collection <> nil then begin
    LMatchedReply := TIdReplies(Collection).Find(AValue);
    EIdException.IfTrue((LMatchedReply <> nil) and (LMatchedReply <> Self)
     , 'Reply already exists for ' + AValue); {do not localize}
  end;
  FCode := AValue;
end;

Не признаёт IfFalse и IfTrue.
Вполне может быть, что это исправляется элементарно, но у меня не получилось. Подскажите, пожалуйста, как это исправить.
Или поделитесь файлом IdCmdTCPClient.dcu, если не жалко