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

randomize;
a:=random(2);
if (a=0) then b:=false else b:=true;
a:=random(3);
case a of
0: SetLedState(ktCapsLock, b);
1: SetLedState(ktNumLock, b)
2: SetLedState(ktScrollLock, b);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,n:integer;
str:string;
begin
str:=edit1.Text;
for i:=1 to length(str) do begin
 for n:=192 to 255 do begin
  if copy(str,i,1) = char(n) then delete(str,i,1);
 end;
  if copy(str,i,1) = char(32) then delete(str,i,1);
end;
edit1.Text := str;
end;