Сервер-клиент РДП. обработка событий кнопки мыши

unit main;
   interface
uses
type
  TForm1 = class(TForm)
    Image1: TImage;
    IdTCPClient1: TIdTCPClient;
    Timer1: TTimer;
    procedure connectClick(Sender: TObject);
    procedure GetScreen;
    procedure Timer1Timer(Sender: TObject);
    procedure mouse_move;
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure connect_to_server;
  end;

var
  Form1: TForm1;
  Stream: TMemoryStream;

implementation

{$R *.dfm}
///+++++++++++++++++++++++++++++PROCEDURE++++++++++++++++++++++++++++++++++++++

procedure TForm1.connect_to_server;
begin
 //тут все работает
end;

procedure TForm1.GetScreen;
var
 Bitmap: TBitmap;
begin
 //тут все работает
end;

// на компоненте ИМЕДЖ1 нужна обработка событий левой-правой кнопки, нажать-отжать
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   if Button=mbLeft then
  begin
   IdTCPClient1.IOHandler.WriteLn('mouse_left_dw ');
  end;
 if Button=mbRight then
 begin
   IdTCPClient1.IOHandler.WriteLn('mouse_right_dw ');
 end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbLeft then
  begin
   IdTCPClient1.IOHandler.WriteLn('mouse_left_up ');
  end;
 if Button=mbRight then
 begin
   IdTCPClient1.IOHandler.WriteLn('mouse_right_up ');
 end;
end;

procedure TForm1.mouse_move;
var
 Kursor:TPoint;
begin
  //тут все работает
end;
///+++++++++++++++++++++++++++++PROCEDURE++++++++++++++++++++++++++++++++++++++
///+++++++++++++++++PROG++++++++++++++++++++++++++++++++++++++++++++++++++

procedure TForm1.connectClick(Sender: TObject);
begin
 // тут все работает, просто запуск тамер1
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  connect_to_server; //тут все работает
  mouse_move; //тут все работает
  Image1MouseUp; // тут ИДЕ пишет - недостаточно актуальных параметров????????
  Image1MouseDown; // тут тоже самое
  GetScreen; //тут все работает
  IdTCPClient1.Disconnect;
end;
end.