1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

var gone:boolean=false;

procedure tform1.onmousemove;
begin
Goon:=true;
end;

procedure tform1.button1click();
var  i: Integer;
     b,c: Byte;
     S: String;
begin
S:=Memo1.Text;
Button1.Caption:='Bitte Maus bewegen';
//while i <= Length(S) do begin
for i:=1 to Length(S) do
 begin
  repeat
    Application.ProcessMessages;
  until Goon;
   Goon:=false;
  for j:=0 to Mouse.CursorPos.X div Mouse.CursorPos.Y do
      b:=Random(255);
    WriteLn(f,b);
    c:=Ord(S[1]);
    Delete(S,1,1);
    Memo2.Text:=Memo2.Text+'#'+IntToHex(c xor b,2);
    Progress.Position:=Progress.Position+1;
 end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var   Form1: TForm1;
      last:integer;

procedure TForm1.Timer1Timer(Sender: TObject);
var z:integer;
begin
  label1.Caption:=inttostr(mouse.CursorPos.X)+'-'+inttostr(mouse.CursorPos.y);
  z:=(mouse.cursorpos.X) mod (mouse.CursorPos.y+1);
  if z>255 then z:=z div 10;
  if z=last then exit;
  label2.Caption:=inttostr(z);
  last:=z;
end;