Сосульки и паскаль - не зря в школе учил:)⁠⁠

uses MouseAndKeyInput;

procedure TForm1.Timer1Timer(Sender: TObject);

var

  I: Integer;

begin

  I := 0;

  while I < Screen.Width do

  begin

    MouseInput.Click(mbLeft, [], I, 300);

    I := I + 5;

  end;

end; 

// Спасибо @LemurS за пробелы