1:
2:
3:
4:
5:
6:
7:
8:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    MyVar: String;
    { Public-Deklarationen }
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

implementation

uses Unit1;  //WICHTIG: Hier musst du die Unit1 einbinden. Unit1 ist die Unit von Form1

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.MyVar := 'Hallo';
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

  public
    bookfile: string;
    { Public-Deklarationen }
  end;

implementation

uses uDrive;

{$R *.DFM}					

1:
2:
3:
4:
5:
6:

      if cbFahrzeug.Text = aktdatensatz.display then
        begin
          frmItemAdd.bookfile := aktdatensatz.trvfile;  //<-- wird gefüllt
          btnRemCar.Enabled := True;
          btnPrint.Enabled := True;
         end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    pubvar: string;
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  pubvar := Edit1.Text; // Variable wird gefüllt!
  ShowMessage(pubvar); //Variable ist gefüllt!
  Form2.ShowModal;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);
begin
  ShowMessage(Form1.pubvar); //Variable ist gefüllt!!!
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Button1.Caption := (Form1.pubvar); //Variable ist leer!
end;

end.