unit Unit1;

interface

uses
 Windows, Messages, Graphics, Controls, Forms, Dialogs, IdWinsock2, stdctrls,
  SysUtils, Classes, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze,
  IdComponent, IdUDPBase, IdUDPClient, IdStack, IdUDPServer, IdSocketHandle,
  ExtCtrls, Buttons;



type
  TForm1 = class(TForm)
    IdUDPClient1: TIdUDPClient;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton17: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton18: TSpeedButton;
    SpeedButton19: TSpeedButton;
    SpeedButton20: TSpeedButton;
    SpeedButton21: TSpeedButton;
    SpeedButton22: TSpeedButton;
    SpeedButton23: TSpeedButton;
    SpeedButton24: TSpeedButton;
    SpeedButton25: TSpeedButton;
    SpeedButton26: TSpeedButton;
    SpeedButton27: TSpeedButton;
    SpeedButton28: TSpeedButton;
    SpeedButton29: TSpeedButton;
    SpeedButton30: TSpeedButton;
    SpeedButton31: TSpeedButton;
    SpeedButton32: TSpeedButton;
    SpeedButton33: TSpeedButton;
    Bevel1: TBevel;
    SpeedButton34: TSpeedButton;
    SpeedButton35: TSpeedButton;
    SpeedButton36: TSpeedButton;
    SpeedButton37: TSpeedButton;
    SpeedButton38: TSpeedButton;
    SpeedButton39: TSpeedButton;
    SpeedButton40: TSpeedButton;
    SpeedButton41: TSpeedButton;
    SpeedButton42: TSpeedButton;
    SpeedButton43: TSpeedButton;
    SpeedButton44: TSpeedButton;
    SpeedButton45: TSpeedButton;
    SpeedButton46: TSpeedButton;
    SpeedButton47: TSpeedButton;
    SpeedButton48: TSpeedButton;
    SpeedButton49: TSpeedButton;
    SpeedButton50: TSpeedButton;
    SpeedButton51: TSpeedButton;
    SpeedButton52: TSpeedButton;
    SpeedButton53: TSpeedButton;
    SpeedButton54: TSpeedButton;
    SpeedButton55: TSpeedButton;
    SpeedButton56: TSpeedButton;
    SpeedButton57: TSpeedButton;
    SpeedButton58: TSpeedButton;
    SpeedButton59: TSpeedButton;
    SpeedButton60: TSpeedButton;
    SpeedButton61: TSpeedButton;
    SpeedButton62: TSpeedButton;
    SpeedButton63: TSpeedButton;
    SpeedButton64: TSpeedButton;
    SpeedButton65: TSpeedButton;
    SpeedButton66: TSpeedButton;
    SpeedButton67: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton18Click(Sender: TObject);
    procedure SpeedButton19Click(Sender: TObject);
    procedure SpeedButton20Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure SpeedButton21Click(Sender: TObject);
    procedure SpeedButton22Click(Sender: TObject);
    procedure SpeedButton23Click(Sender: TObject);
    procedure SpeedButton24Click(Sender: TObject);
    procedure SpeedButton25Click(Sender: TObject);
    procedure SpeedButton26Click(Sender: TObject);
    procedure SpeedButton27Click(Sender: TObject);
    procedure SpeedButton28Click(Sender: TObject);
    procedure SpeedButton29Click(Sender: TObject);
    procedure SpeedButton30Click(Sender: TObject);
    procedure SpeedButton31Click(Sender: TObject);
    procedure SpeedButton32Click(Sender: TObject);
    procedure SpeedButton33Click(Sender: TObject);
    procedure SpeedButton34Click(Sender: TObject);
    procedure SpeedButton35Click(Sender: TObject);
    procedure SpeedButton36Click(Sender: TObject);
    procedure SpeedButton37Click(Sender: TObject);
    procedure SpeedButton38Click(Sender: TObject);
    procedure SpeedButton39Click(Sender: TObject);
    procedure SpeedButton40Click(Sender: TObject);
    procedure SpeedButton41Click(Sender: TObject);
    procedure SpeedButton42Click(Sender: TObject);
    procedure SpeedButton43Click(Sender: TObject);
    procedure SpeedButton44Click(Sender: TObject);
    procedure SpeedButton45Click(Sender: TObject);
    procedure SpeedButton46Click(Sender: TObject);
    procedure SpeedButton47Click(Sender: TObject);
    procedure SpeedButton48Click(Sender: TObject);
    procedure SpeedButton49Click(Sender: TObject);
    procedure SpeedButton50MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton50MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton51MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton51MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton52MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton52MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton53MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton53MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton54MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton54MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton55MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton55MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton56MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton56MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton57MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton57MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton58MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton58MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton59MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton59MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton60MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton60MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton61MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton61MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton62MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton62MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton63MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton63MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton64MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton64MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton65MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton65MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton66Click(Sender: TObject);
    procedure SpeedButton67Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

  ReceivedString: String;

implementation


{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);  // Paramètres par défaut au lancement de l'application.
begin
  IdUDPClient1.Port:=5030;            // Port par défaut.
  IdUDPClient1.Host:='192.168.0.9';   // Adresse IP locale par défaut.

  IdUDPClient1.ReceiveTimeout:=1000;  // Délais maxi d'une second pour que le périphérique à base d'ENC28J60 réponde.
end;




//******************
//** COMMANDES ON **
//******************
procedure TForm1.SpeedButton2Click(Sender: TObject); // ON S1
begin
  IdUDPClient1.Send('S01N');
end;

procedure TForm1.SpeedButton3Click(Sender: TObject); // ON S2
begin
  IdUDPClient1.Send('S02N');
end;

procedure TForm1.SpeedButton4Click(Sender: TObject); // ON S3
begin
  IdUDPClient1.Send('S03N');
end;

procedure TForm1.SpeedButton5Click(Sender: TObject); // ON S4
begin
  IdUDPClient1.Send('S04N');
end;

procedure TForm1.SpeedButton6Click(Sender: TObject); // ON S5
begin
  IdUDPClient1.Send('S05N');
end;

procedure TForm1.SpeedButton7Click(Sender: TObject); // ON S6
begin
  IdUDPClient1.Send('S06N');
end;

procedure TForm1.SpeedButton8Click(Sender: TObject); // ON S7
begin
  IdUDPClient1.Send('S07N');
end;

procedure TForm1.SpeedButton9Click(Sender: TObject); // ON S8
begin
  IdUDPClient1.Send('S08N');
end;

procedure TForm1.SpeedButton10Click(Sender: TObject); // ON S9
begin
  IdUDPClient1.Send('S09N');
end;

procedure TForm1.SpeedButton11Click(Sender: TObject); // ON S10
begin
  IdUDPClient1.Send('S10N');
end;

procedure TForm1.SpeedButton12Click(Sender: TObject); // ON S11
begin
  IdUDPClient1.Send('S11N');
end;

procedure TForm1.SpeedButton13Click(Sender: TObject); // ON S12
begin
  IdUDPClient1.Send('S12N');
end;

procedure TForm1.SpeedButton14Click(Sender: TObject); // ON S13
begin
  IdUDPClient1.Send('S13N');
end;

procedure TForm1.SpeedButton15Click(Sender: TObject); // ON S14
begin
  IdUDPClient1.Send('S14N');
end;

procedure TForm1.SpeedButton16Click(Sender: TObject); // ON S15
begin
  IdUDPClient1.Send('S15N');
end;

procedure TForm1.SpeedButton17Click(Sender: TObject); // ON S16
begin
  IdUDPClient1.Send('S16N');
end;
//**********************
//** FIN COMMANDES ON **
//**********************




//*******************
//** COMMANDES OFF **
//*******************
procedure TForm1.SpeedButton18Click(Sender: TObject); // OFF S1
begin
  IdUDPClient1.Send('S01F');
end;

procedure TForm1.SpeedButton19Click(Sender: TObject); // OFF S2
begin
  IdUDPClient1.Send('S02F');
end;

procedure TForm1.SpeedButton20Click(Sender: TObject); // OFF S3
begin
  IdUDPClient1.Send('S03F');
end;

procedure TForm1.SpeedButton21Click(Sender: TObject); // OFF S4
begin
  IdUDPClient1.Send('S04F');
end;

procedure TForm1.SpeedButton22Click(Sender: TObject); // OFF S5
begin
  IdUDPClient1.Send('S05F');
end;

procedure TForm1.SpeedButton23Click(Sender: TObject); // OFF S6
begin
  IdUDPClient1.Send('S06F');
end;

procedure TForm1.SpeedButton24Click(Sender: TObject); // OFF S7
begin
  IdUDPClient1.Send('S07F');
end;

procedure TForm1.SpeedButton25Click(Sender: TObject); // OFF S8
begin
  IdUDPClient1.Send('S08F');
end;

procedure TForm1.SpeedButton26Click(Sender: TObject); // OFF S9
begin
  IdUDPClient1.Send('S09F');
end;

procedure TForm1.SpeedButton27Click(Sender: TObject); // OFF S10
begin
  IdUDPClient1.Send('S10F');
end;

procedure TForm1.SpeedButton28Click(Sender: TObject); // OFF S11
begin
  IdUDPClient1.Send('S11F');
end;

procedure TForm1.SpeedButton29Click(Sender: TObject); // OFF S12
begin
  IdUDPClient1.Send('S12F');
end;

procedure TForm1.SpeedButton30Click(Sender: TObject); // OFF S13
begin
  IdUDPClient1.Send('S13F');
end;

procedure TForm1.SpeedButton31Click(Sender: TObject); // OFF S14
begin
  IdUDPClient1.Send('S14F');
end;

procedure TForm1.SpeedButton32Click(Sender: TObject); // OFF S15
begin
  IdUDPClient1.Send('S15F');
end;

procedure TForm1.SpeedButton33Click(Sender: TObject); // OFF S16
begin
  IdUDPClient1.Send('S16F');
end;
//***********************
//** FIN COMMANDES OFF **
//***********************





//**********************
//** COMMANDES TOGGLE **
//**********************
procedure TForm1.SpeedButton34Click(Sender: TObject);  // Toogle S1
begin
  IdUDPClient1.Send('S01T');
end;

procedure TForm1.SpeedButton35Click(Sender: TObject);  // Toogle S2
begin
  IdUDPClient1.Send('S02T');
end;

procedure TForm1.SpeedButton36Click(Sender: TObject);  // Toogle S3
begin
  IdUDPClient1.Send('S03T');
end;

procedure TForm1.SpeedButton37Click(Sender: TObject);  // Toogle S4
begin
  IdUDPClient1.Send('S04T');
end;

procedure TForm1.SpeedButton38Click(Sender: TObject);  // Toogle S5
begin
  IdUDPClient1.Send('S05T');
end;

procedure TForm1.SpeedButton39Click(Sender: TObject);  // Toogle S6
begin
  IdUDPClient1.Send('S06T');
end;

procedure TForm1.SpeedButton40Click(Sender: TObject);  // Toogle S7
begin
  IdUDPClient1.Send('S07T');
end;

procedure TForm1.SpeedButton41Click(Sender: TObject);  // Toogle S8
begin
  IdUDPClient1.Send('S08T');
end;

procedure TForm1.SpeedButton42Click(Sender: TObject);  // Toogle S9
begin
  IdUDPClient1.Send('S09T');
end;

procedure TForm1.SpeedButton43Click(Sender: TObject);  // Toogle S10
begin
  IdUDPClient1.Send('S10T');
end;

procedure TForm1.SpeedButton44Click(Sender: TObject);  // Toogle S11
begin
  IdUDPClient1.Send('S11T');
end;

procedure TForm1.SpeedButton45Click(Sender: TObject);  // Toogle S12
begin
  IdUDPClient1.Send('S12T');
end;

procedure TForm1.SpeedButton46Click(Sender: TObject);  // Toogle S13
begin
  IdUDPClient1.Send('S13T');
end;

procedure TForm1.SpeedButton47Click(Sender: TObject);  // Toogle S14
begin
  IdUDPClient1.Send('S14T');
end;

procedure TForm1.SpeedButton48Click(Sender: TObject);  // Toogle S15
begin
  IdUDPClient1.Send('S15T');
end;

procedure TForm1.SpeedButton49Click(Sender: TObject);  // Toogle S16
begin
  IdUDPClient1.Send('S16T');
end;
//**************************
//** FIN COMMANDES TOGGLE **
//**************************





//***************************
//** COMMANDES MOMENTANEES **
//***************************
procedure TForm1.SpeedButton50MouseDown(Sender: TObject;      // S1 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S01N');
end;

procedure TForm1.SpeedButton50MouseUp(Sender: TObject;      // S1 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S01F');
end;

procedure TForm1.SpeedButton51MouseDown(Sender: TObject;      // S2 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S02N');
end;

procedure TForm1.SpeedButton51MouseUp(Sender: TObject;       // S2 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S02F');
end;

procedure TForm1.SpeedButton52MouseDown(Sender: TObject;      // S3 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S03N');
end;

procedure TForm1.SpeedButton52MouseUp(Sender: TObject;        // S3 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S03F');
end;

procedure TForm1.SpeedButton53MouseDown(Sender: TObject;      // S4 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S04N');
end;

procedure TForm1.SpeedButton53MouseUp(Sender: TObject;         // S4 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S04F');
end;

procedure TForm1.SpeedButton54MouseDown(Sender: TObject;      // S5 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S05N');
end;

procedure TForm1.SpeedButton54MouseUp(Sender: TObject;         // S5 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S05F');
end;

procedure TForm1.SpeedButton55MouseDown(Sender: TObject;       // S6 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S06N');
end;

procedure TForm1.SpeedButton55MouseUp(Sender: TObject;          // S6 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S06F');
end;

procedure TForm1.SpeedButton56MouseDown(Sender: TObject;       // S7 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S07N');
end;

procedure TForm1.SpeedButton56MouseUp(Sender: TObject;       // S7 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S07F');
end;

procedure TForm1.SpeedButton57MouseDown(Sender: TObject;       // S8 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S08N');
end;

procedure TForm1.SpeedButton57MouseUp(Sender: TObject;        // S8 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S08F');
end;

procedure TForm1.SpeedButton58MouseDown(Sender: TObject;      // S9 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S09N');
end;

procedure TForm1.SpeedButton58MouseUp(Sender: TObject;         // S9 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S09F');
end;

procedure TForm1.SpeedButton59MouseDown(Sender: TObject;      // S10 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S10N');
end;

procedure TForm1.SpeedButton59MouseUp(Sender: TObject;        // S10 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S10F');
end;

procedure TForm1.SpeedButton60MouseDown(Sender: TObject;       // S11 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S11N');
end;

procedure TForm1.SpeedButton60MouseUp(Sender: TObject;          // S11 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S11F');
end;

procedure TForm1.SpeedButton61MouseDown(Sender: TObject;      // S12 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S12N');
end;

procedure TForm1.SpeedButton61MouseUp(Sender: TObject;         // S12 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S12F');
end;

procedure TForm1.SpeedButton62MouseDown(Sender: TObject;      // S13 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S13N');
end;

procedure TForm1.SpeedButton62MouseUp(Sender: TObject;        // S13 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S13F');
end;

procedure TForm1.SpeedButton63MouseDown(Sender: TObject;      // S14 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S14N');
end;

procedure TForm1.SpeedButton63MouseUp(Sender: TObject;         // S14 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S14F');
end;

procedure TForm1.SpeedButton64MouseDown(Sender: TObject;       // S15 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S15N');
end;

procedure TForm1.SpeedButton64MouseUp(Sender: TObject;         // S15 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S15F');
end;

procedure TForm1.SpeedButton65MouseDown(Sender: TObject;     // S16 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S16N');
end;

procedure TForm1.SpeedButton65MouseUp(Sender: TObject;        // S16 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  IdUDPClient1.Send('S16F');
end;
//*******************************
//** FIN COMMANDES MOMENTANEES **
//*******************************




//************************
//** COMMANDES AVANCEES **
//************************
procedure TForm1.SpeedButton66Click(Sender: TObject);  // Toutes les sortie ON
begin
  IdUDPClient1.Send('N$');
end;



procedure TForm1.SpeedButton67Click(Sender: TObject);  // Toutes les sortie OFF
begin
  IdUDPClient1.Send('F$');
end;
//****************************
//** FIN COMMANDES AVANCEES **
//****************************

end.