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;                    

1:

MousePos: array of TPoint;                    

1:

MousePos: array of TMousePosData;                    

1:
2:
3:

private
L,Pos:Integer;
MousePos: array of  TPoint;                    

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

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

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

procedure TForm12.TimerAbspielenTimer(Sender: TObject);
begin
if Pos<Length(MousePos) then
  SetCursorPos(MousePos[Pos].X,MousePos[Pos].Y)
else
  TimerAbspielen.Enabled:=FALSE; 
Pos:=Pos+1;
end;                    

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

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

type TMousePosData=record 
  X,Y: integer;
  Button: TMouseButton;
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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

type
  TMouseButton = (mbLeft, mbRight, mbDouble);
  TMouseButtons = set of TMouseButton;

  TMouseData = record
    Pos: TPoint;
    Button: TMouseButtons;
  end;

var
  MouseButtons: TMouseButtons;
  MouseData: array of TMouseData;  

procedure TForm1.FormDblClick(Sender: TObject);
begin
  MouseButtons := MouseButtons + [mbDouble];
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  case Button of
    mbLeft : MouseButtons := MouseButtons + [mbLeft];
    mbRight: MouseButtons := MouseButtons + [mbRight];
  end;
end;

procedure TForm1.TimerAufzeichnenTimer(Sender: TObject);
var L: Integer;
begin
  L:=Length(MouseData);
  SetLength(MouseData, L+1);
  MouseData[L].Pos := Mouse.CursorPos;
  MouseData[L].Button := MouseButtons;
  MouseButtons := [];
end;                    

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

procedure TForm12.TimerButtonklickTimer(Sender: TObject);
begin
if (GetAsyncKeyState(VK_LBUTTON) and $8000) > 0 then
begin
      Button2.Caption := 'Mouse button down';
end
   else
      Button2.Caption := 'Mouse button Up';
end;