if f then begin
for i := 0 to FAbonRes.Count - 1 do begin
if (FAbonRes[i].Res <= ThreadStrings.Count) and (FAbonRes[i].Res > 0) then begin
+{$IFDEF NO_ABON}
+ ThreadStrings.Strings[FAbonRes[i].Res-1] :=
+ '<font color="red">\82 \82Ú\81`\82ñ\8dÏ\82Ý</font>' +
+ ThreadStrings.Strings[FAbonRes[i].Res-1];
+{$ELSE}
if FAbonRes[i].option = 0 then begin
ThreadStrings.Strings[FAbonRes[i].Res-1] := '';
end else begin
ThreadStrings.Strings[FAbonRes[i].Res-1] := '\82 \82Ú\81`\82ñ<>\82 \82Ú\81`\82ñ<>\82 \82Ú\81`\82ñ<>\82 \82Ú\81`\82ñ<>';
end;
+{$ENDIF}
end;
end;
end;