[Laymer]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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, если не жалко