ANTICHAT — форум по информационной безопасности, OSINT и технологиям

uses SysUtils,Dateutils;

var
start_time:Tdatetime;

{10 секунд обрабатываем сообщения}
start_time:=now;
while SecondSpan(now, start_time)<10 do application.ProcessMessages;

k:=0;
repeat
  k:=k+1;
  <твой код>;
until (k>1) and (<твое другое условие>);

function LCase(Symbol: Char): Char;
begin
  case Symbol of
    'А'..'Я', 'A'..'Z':
      Result := Chr(Ord(Symbol) + 32);
    'Ё':
      Result := 'ё';
  else
    Result := Symbol;
  end;
end;


function UCase(Symbol: Char): Char;
begin
  case Symbol of
    'а'..'я', 'a'..'z':
      Result := Chr(Ord(Symbol) - 32);
    'ё':
      Result := 'Ё';
  else
    Result := Symbol;
  end;
end;