unit UnitRelais;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, UInit,Unit1;

type
  TF_Relais = class(TForm)
    Label1: TLabel;
    LabeledEdit1: TLabeledEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  F_Relais: TF_Relais;

implementation

{$R *.dfm}

procedure TF_Relais.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  L_Relais[NumeroEnCours].nom:=LabeledEdit1.Text;
end;

end.