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 TForm1.FormCreate(Sender: TObject);
var cursorpos: TPoint;
begin
  getCursorpos(cursorpos);
  altx := cursorpos.X;                    // X-Wert zum Vergleichen
  Timer1.Interval := 1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var cursorpos: TPoint;
begin
  getCursorpos(cursorpos);
  neux := cursorpos.X;                    // neuer X-Wert
  if neux > altx then begin
  diff := neux - altx;
  diff := 2*diff;       // die Differenz wird verdoppelt sonst würde der Mauszeiger ja immer auf einer posi bleiben
  SetCursorPos(altx - diff, CursorPos.Y); // neue Cursor-Position
  end;
  if neux < altx then begin
  diff := altx - neux;
  diff := 2*diff;       // die Differenz wird verdoppelt sonst würde der Mauszeiger ja immer auf einer posi bleiben
  SetCursorPos(altx + diff, CursorPos.Y); // neue Cursor-Position
  end;
  altx := cursorpos.X;                    // neuer Wert zum vergleichen
end;					

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

procedure TForm1.Timer1Timer(Sender: TObject);
var cursorpos: TPoint;
begin
  getCursorpos(cursorpos);
  neux := cursorpos.X;
  diff := neux - altx;
  SetCursorPos(altx - diff, CursorPos.Y);
  getCursorpos(cursorpos);//um ein neuen Wert zu vergleichen zu haben musst du deine variable auch updaten :D
  altx := cursorpos.X;
end;					

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

procedure TForm1.Timer1Timer(Sender: TObject);  
var cursorpos: TPoint;
begin
  getCursorpos(cursorpos);
  neux := cursorpos.X;
  diff := neux - altx;
  SetCursorPos(altx - diff, CursorPos.Y);
  getCursorpos(cursorpos);//um ein neuen Wert zu vergleichen zu haben musst du deine variable auch updaten :D  
  altx := cursorpos.X;
  if altx=0 then altx:=1;//sollte maus am linken rand stehen setz sie ein pixel nach rechts 
  if altx=screen.Width-1 then altx:=screen.width-2;//sollte die maus aum rechten rand stehen setze sie ein pixel nach links
end;					

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

procedure SwapMouseButtons(const ASwap: Boolean);
begin
  if ASwap then
    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP,1, Nil, 0)
  else
    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP,0, Nil, 0);
end;