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

procedure Eins;
begin
 i := 5; //Das ist die globale Variable
end;

procedure Zwei;
var
 i : integer;
begin
  Wenn du hier auf i zugreifst, kriegst du alles aber nicht 5
end;                    

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

      if cbFahrzeug.Text = aktdatensatz.display then
        begin
          frmItemAdd.bookfile := aktdatensatz.trvfile; //hier wird die Variable gefüllt
          btnRemCar.Enabled := True;
          btnPrint.Enabled := True;
          btnItemAdd.Enabled := True;
          btnItemInfo.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:

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

var frmItemAdd: TfrmItemAdd;

implementation

uses uDrive;

{$R *.DFM}

var
  fail: Boolean = false;

const buffersize = 32;

procedure TfrmItemAdd.FormCreate(Sender: TObject);
begin
  lblDateDep.Caption := bookfile; // Testweise Auslesen der Variable
  AssignFile(TravelFile, bookfile);
  if FileExists(bookfile) then ReSet(TravelFile)
  else ReWrite(TravelFile);
end;