TRANSFERT INSTANTANÉ D'UNE VARIABLE ENTRE 2 UNITÉS.

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls ;
type
  TForm1 = class(TForm)
    EditDeForm1: TEdit;
    procedure EditDeForm1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
var
  Form1: TForm1;

implementation

{$R *.dfm}
uses Unit2;
var
  Variable : String;

procedure TForm1.EditDeForm1Change(Sender: TObject);
  begin
  Variable := EditDeForm1.Text;
  form2.EditDeForm2.Text := Variable;
  end;
end.

*******************************

unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls ;
type
  TForm2 = class(TForm)
    EditDeForm2: TEdit;
    procedure EditDeForm2Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
var
  Form2: TForm2;

implementation

{$R *.dfm}
uses Unit1;
var
  Variable : String;

procedure TForm2.EditDeForm2Change(Sender: TObject);
  begin
  Variable :=  EditDeForm2.Text;
  form1.EditDeForm1.Text := Variable;
  end;

end.