Code: Select all
procedure IsCurMessages;
var i,count : Integer;
s : String;
begin
count := 0;
for i := HighJournal downto HighJournal - 50 do
begin
S := Journal(i);
if S = 'System: You must wait to perform another action' then count := count + 1;
end;
if count >= 10 then Disconnect;
end;
сделайте хотяб для селф...