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

var MousePos: array of TPoint;
[...]
//onTimer
L:=Length(MousePos);
SetLength(MousePosL+1);
MousePos[L]:=Mouse.CursorPos;
[...]
//abspielen, dafür hast du ja dann z.B. auch einen timer:
//Pos:=0; muss vor dem abspielen initialisiert werden!
if Pos<Length(MousePos) then
  SetCursorPos(MousePos[Pos].X,MousePos[Pos].Y)
else
  Timer.Enabled:=False; //aufhören wenn alle angezeigt wurden
Pos:=Pos+1;					

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:

procedure AddPointToList(X, Y: Integer);
type PPoint = ^TPoint;
var p: PPoint; //Zeiger auf einen Punkt
begin
  new(p); //Speicher reservieren
  p^.X := X; //Daten übernehmen
  P^.Y := Y; //in Liste speichern
  PointList.Add(p);
end;

function GetPointFromList(index: Integer): TPoint;
type PPoint = ^TPoint;
begin
  result := PPoint(PointList[index])^;  
end;

procedure ClearPointList;
type PPoint = ^TPoint;
var i: Integer;
begin
  for i := PointList.Count-1 downto 0 do begin //alle Elemente durchzählen
    dispose(PPoint(PointList[i])); //Speicher freigeben
    PointList.delete(i);           //Element löschen
  end;
end;					

1:

type PInteger : ^Integer //Ein Typ, der auf die Speicherstelle eines Integers zeigt.					

1:

result := VariblePInteger^ + 5					

1:
2:
3:
4:
5:
6:
7:
8:

private
  L,Pos:Integer;
  MousePos: array of TPoint;
    { Private-Deklarationen }
  public

    { Public-Deklarationen }
  end;					

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:

procedure TForm12.BtAufzeichnenClick(Sender: TObject);
begin
TimerAufzeichnen.Enabled:=TRUE;
Pos:=0;

end;
procedure TForm12.TimerAbspielenTimer(Sender: TObject);
begin
//abspielen, dafür hast du ja dann z.B. auch einen timer:
//Pos:=0; muss vor dem abspielen initialisiert werden!

if Pos<Length(MousePos) then
  SetCursorPos(MousePos[Pos].X,MousePos[Pos].Y)
else
  TimerAb.Enabled:=False; //aufhören wenn alle angezeigt wurden
Pos:=Pos+1;
end;

procedure TForm12.TimerAufzeichnenTimer(Sender: TObject);
begin
//onTimer
L:=Length(MousePos);
SetLength(MousePos+1);
MousePos[L]:=Mouse.CursorPos;
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm12.TimerAufzeichnenTimer(Sender: TObject);
begin
//onTimer
L:=Length(MousePos);
SetLength(MousePos, L);
MousePos[L]:=Mouse.CursorPos;
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm12.TimerAufzeichnenTimer(Sender: TObject);
begin
//onTimer
L:=Length(MousePos);
SetLength(MousePos, L+1);
MousePos[L]:=Mouse.CursorPos;
end;					

1:

SetLength(MousePos,0);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

type
  TMouseButton = (mbLeft, mbRight, mbDouble);
  TMouseClickRec = packed record
    Time: Cardinal;
    Button: TMouseButton;
  end;

var
  MouseClickArr = array of TMouseClickRec;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

type 
  TMouseButton = (mbLeft, mbRight, mbDouble, mbNone);
  TMouseRec = packed record
    Pos = TPoint;
    Button = TMouseButton;
  end;

var
  MouseArray = array of TMouseRec;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

type TMouseButton = (mbNone,mbLeft, mbRight, mbDouble);

type TMousePosData=record 
  X,Y: integer;
  Button: TMouseButton;
end;


MousePos: array of TMousePosData;