unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, CPort;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    SpeedButton1: TSpeedButton;
    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;
    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;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton33: TSpeedButton;
    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;
    GroupBox4: TGroupBox;
    SpeedButton65: TSpeedButton;
    SpeedButton66: TSpeedButton;
    SpeedButton67: TSpeedButton;
    SpeedButton68: TSpeedButton;
    SpeedButton69: TSpeedButton;
    SpeedButton70: TSpeedButton;
    ComPort1: TComPort;
    procedure SpeedButton68Click(Sender: TObject);
    procedure SpeedButton69Click(Sender: TObject);
    procedure SpeedButton70Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton67Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton18Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton19Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton20Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton21Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton22Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton23Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton24Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton25Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton26Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton27Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton28Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton29Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton30Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton31Click(Sender: TObject);
    procedure SpeedButton16Click(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 SpeedButton65Click(Sender: TObject);
    procedure SpeedButton66Click(Sender: TObject);
    procedure SpeedButton49MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton49MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    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);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  SpeedButton70.Enabled:=False;   // Desactive le bouton "Fermer le port de communication série" lors du lancement de l'application
  SpeedButton69.Enabled:=False;   // Desactive le bouton "Ouvrir le port de communication série" lors du lancement de l'application

  // Desactive tout les boutons :
  GroupBox1.Enabled:=False;
  GroupBox2.Enabled:=False;
  GroupBox3.Enabled:=False;
  GroupBox4.Enabled:=False;
end;

procedure TForm1.SpeedButton68Click(Sender: TObject);  // Bouton "Configuration de la liaison série"
begin
  ComPort1.ShowSetupDialog;      // Ouverture de la boîte de dialogue COMPORT
  SpeedButton69.Enabled:=True;   // Active le bouton "Ouvrir le port de communication série"
end;

procedure TForm1.SpeedButton69Click(Sender: TObject); // Bouton "Ouvrir le port de communication série"
begin
  ComPort1.Open;
  SpeedButton68.Enabled:=False;   // Desactive le bouton "Configuration de la liaison série"
  SpeedButton69.Enabled:=False;   // Desactive le bouton "Ouvrir le port de communication série".
  SpeedButton70.Enabled:=True;    // Active le bouton "Fermer le port de communication série"

  // Desactive tout les boutons :
  GroupBox1.Enabled:=True;
  GroupBox2.Enabled:=True;
  GroupBox3.Enabled:=True;
  GroupBox4.Enabled:=True;

end;

procedure TForm1.SpeedButton70Click(Sender: TObject); // Bouton "Fermer le port de communication série"
begin
 ComPort1.Close;
 SpeedButton68.Enabled:=True;    // Active le bouton "Configuration de la liaison série"
 SpeedButton70.Enabled:=False;   // Desactive le bouton "Fermer le port de communication série"
 SpeedButton69.Enabled:=True;    // Active le bouton "Ouvrir le port de communication série"

  // Desactive tout les boutons :
  GroupBox1.Enabled:=False;
  GroupBox2.Enabled:=False;
  GroupBox3.Enabled:=False;
  GroupBox4.Enabled:=False;
end;

procedure TForm1.SpeedButton67Click(Sender: TObject); // Bouton "Quitter"
begin
  ComPort1.Close;
  Application.Terminate;
end;


//********** COMMANDES ON/OFF **************
procedure TForm1.SpeedButton1Click(Sender: TObject); // ON S1
begin
  ComPort1.WriteStr('S1N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton17Click(Sender: TObject); // OFF S1
begin
  ComPort1.WriteStr('S1F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton2Click(Sender: TObject); // ON S2
begin
  ComPort1.WriteStr('S2N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton18Click(Sender: TObject); // OFF S2
begin
  ComPort1.WriteStr('S2F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton3Click(Sender: TObject); // ON S3
begin
  ComPort1.WriteStr('S3N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton19Click(Sender: TObject); // OFF S3
begin
  ComPort1.WriteStr('S3F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton4Click(Sender: TObject); // ON S4
begin
  ComPort1.WriteStr('S4N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton20Click(Sender: TObject); // OFF S4
begin
  ComPort1.WriteStr('S4F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton5Click(Sender: TObject); // ON S5
begin
  ComPort1.WriteStr('S5N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton21Click(Sender: TObject); // OFF S5
begin
  ComPort1.WriteStr('S5F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton6Click(Sender: TObject); // ON S6
begin
  ComPort1.WriteStr('S6N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton22Click(Sender: TObject); // OFF S6
begin
  ComPort1.WriteStr('S6F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton7Click(Sender: TObject); // ON S7
begin
  ComPort1.WriteStr('S7N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton23Click(Sender: TObject); // OFF S7
begin
  ComPort1.WriteStr('S7F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton8Click(Sender: TObject); // ON S8
begin
  ComPort1.WriteStr('S8N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton24Click(Sender: TObject); // OFF S8
begin
  ComPort1.WriteStr('S8F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton9Click(Sender: TObject); // ON S9
begin
  ComPort1.WriteStr('S9N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton25Click(Sender: TObject); // OFF S9
begin
  ComPort1.WriteStr('S9F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton10Click(Sender: TObject); // ON S10
begin
  ComPort1.WriteStr('S10N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton26Click(Sender: TObject); // OFF S10
begin
  ComPort1.WriteStr('S10F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton11Click(Sender: TObject); // ON S11
begin
  ComPort1.WriteStr('S11N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton27Click(Sender: TObject); // OFF S11
begin
  ComPort1.WriteStr('S11F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton12Click(Sender: TObject); // ON S12
begin
  ComPort1.WriteStr('S12N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton28Click(Sender: TObject); // OFF S12
begin
  ComPort1.WriteStr('S12F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton13Click(Sender: TObject); // ON S13
begin
  ComPort1.WriteStr('S13N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton29Click(Sender: TObject); // OFF S13
begin
  ComPort1.WriteStr('S13F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton14Click(Sender: TObject); // ON S14
begin
  ComPort1.WriteStr('S14N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton30Click(Sender: TObject); // OFF S14
begin
  ComPort1.WriteStr('S14F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton15Click(Sender: TObject); // ON S15
begin
  ComPort1.WriteStr('S15N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton31Click(Sender: TObject); // OFF S15
begin
  ComPort1.WriteStr('S15F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton16Click(Sender: TObject); // ON S16
begin
  ComPort1.WriteStr('S16N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton32Click(Sender: TObject); // OFF S16
begin
  ComPort1.WriteStr('S16F$#');
  sleep(10);   // Pause de 10ms
end;
//******************************************




//******* COMMANDES BISTABLES (toggle) *********
procedure TForm1.SpeedButton33Click(Sender: TObject); // S1
begin
  ComPort1.WriteStr('S1T$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton34Click(Sender: TObject); // S2
begin
  ComPort1.WriteStr('S2T$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton35Click(Sender: TObject); // S3
begin
  ComPort1.WriteStr('S3T$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton36Click(Sender: TObject); // S4
begin
  ComPort1.WriteStr('S4T$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton37Click(Sender: TObject); // S5
begin
  ComPort1.WriteStr('S5T$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton38Click(Sender: TObject); // S6
begin
  ComPort1.WriteStr('S6T$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton39Click(Sender: TObject); // S7
begin
  ComPort1.WriteStr('S7T$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton40Click(Sender: TObject); // S8
begin
  ComPort1.WriteStr('S8T$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton41Click(Sender: TObject); // S9
begin
  ComPort1.WriteStr('S9T$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton42Click(Sender: TObject); // S10
begin
  ComPort1.WriteStr('S10T$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton43Click(Sender: TObject); // S11
begin
  ComPort1.WriteStr('S11T$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton44Click(Sender: TObject); // S12
begin
  ComPort1.WriteStr('S12T$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton45Click(Sender: TObject); // S13
begin
  ComPort1.WriteStr('S13T$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton46Click(Sender: TObject); // S14
begin
  ComPort1.WriteStr('S14T$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton47Click(Sender: TObject); // S15
begin
  ComPort1.WriteStr('S15T$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton48Click(Sender: TObject); // S16
begin
  ComPort1.WriteStr('S16T$#');
  sleep(10);   // Pause de 10ms
end;
//***************************************************************




//********************* COMMANDES AVANCEES **********************
procedure TForm1.SpeedButton65Click(Sender: TObject); // Mettre toutes les sorties ON
begin
  ComPort1.WriteStr('N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton66Click(Sender: TObject); // Mettre toutes les sorties OFF
begin
  ComPort1.WriteStr('F$#');
  sleep(10);   // Pause de 10ms
end;
//****************************************************************




//********************* COMMANDES MOMENTANEES **********************
procedure TForm1.SpeedButton49MouseDown(Sender: TObject; // S1 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S1N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton49MouseUp(Sender: TObject; // S1 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S1F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton50MouseDown(Sender: TObject; // S2 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S2N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton50MouseUp(Sender: TObject; // S2 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S2F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton51MouseDown(Sender: TObject; // S3 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S3N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton51MouseUp(Sender: TObject; // S3 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S3F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton52MouseDown(Sender: TObject; // S4 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S4N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton52MouseUp(Sender: TObject; // S4 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S4F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton53MouseDown(Sender: TObject; // S5 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S5N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton53MouseUp(Sender: TObject; // S5 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S5F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton54MouseDown(Sender: TObject; // S6 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S6N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton54MouseUp(Sender: TObject; // S6 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S6F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton55MouseDown(Sender: TObject; // S7 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S7N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton55MouseUp(Sender: TObject; // S7 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S7F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton56MouseDown(Sender: TObject; // S8 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S8N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton56MouseUp(Sender: TObject; // S8 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S8F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton57MouseDown(Sender: TObject; // S9 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S9N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton57MouseUp(Sender: TObject; // S9 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S9F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton58MouseDown(Sender: TObject; // S10 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S10N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton58MouseUp(Sender: TObject; // S10 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S10F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton59MouseDown(Sender: TObject; // S11 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S11N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton59MouseUp(Sender: TObject; // S11 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S11F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton60MouseDown(Sender: TObject; // S12 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S12N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton60MouseUp(Sender: TObject; // S12 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S12F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton61MouseDown(Sender: TObject; // S13 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S13N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton61MouseUp(Sender: TObject; // S13 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S13F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton62MouseDown(Sender: TObject; // S14 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S14N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton62MouseUp(Sender: TObject; // S14 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S14F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton63MouseDown(Sender: TObject; // S15 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S15N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton63MouseUp(Sender: TObject; // S15 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S15F$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton64MouseDown(Sender: TObject; // S16 enfoncé
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S16N$#');
  sleep(10);   // Pause de 10ms
end;

procedure TForm1.SpeedButton64MouseUp(Sender: TObject; // S16 relaché
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ComPort1.WriteStr('S16F$#');
  sleep(10);   // Pause de 10ms
end;
//***********************************************************************

end.