за отображение статуса отвечает функция GetStatusFor()
вот она:
Код:
function GetStatusFor(UIN : Cardinal) : String;
var
Rs : String;
i : LongInt;
begin
Rs := StatusToStr_rus(S_OFFLINE);
if UINStatusList.Count > 0 then
for i := 0 to UINStatusList.Count - 1 do
if PUINStatusItem(UINStatusList.Items[i])^.UIN = UIN then
Rs := StatusToStr_rus(PUINStatusItem(UINStatusList.Items[i])^.Status);
Result := Rs;
end;
ругается на это условие if UINStatusList.Count > 0 then
скрин ошибки прикреплен к теме