unit pilot1p;

interface

uses
  {$IFDEF LINUX} Libc, {$ENDIF} Qt {Windows}, {Messages} SysUtils, Variants, Classes, QGraphics, QControls, QForms,
  QDialogs, QStdCtrls, QButtons, QExtCtrls, comunicaciones;

type
  Tpilot1 = class(TForm)
    Image2: TImage;
    Image3: TImage;
    Image1: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  pilot1: Tpilot1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.xfm}

procedure Tpilot1.BitBtn1Click(Sender: TObject);
begin
{
salida1.inicializar(0,420,265,1,1,'A');
salida1.show;
fentradas.inicializar(0,530,265,10,3,1);
fentradas.show;}
//salida2.inicializar(0,500,500,2,0,'B');
//salida2.show;


//salida3.inicializar(0,700,500,4,1,'C');
//salida3.show;

end;




procedure Tpilot1.Image2Click(Sender: TObject);
begin

hide;
salida1.Hide;
fentradas.hide;
end;

procedure Tpilot1.Image3Click(Sender: TObject);
begin
Application.terminate;
end;

procedure Tpilot1.Image1Click(Sender: TObject);
begin
    mandardatos_pilot1;
//    showmessage('Datos enviados');
    
end;

end.