Access variable from one form to another

[DeddyH]

Assuming the ID really belongs to Form1:

Delphi-Quellcode:

type
  TForm1 := class(TForm)
    ...
  private
    FID: integer;
  public
    procedure Person1(NewID: integer);
    property ID: integer read FID;
    ...
  end;

...

(* Looks like a setter, but I am not sure if other interesting things happen here, too *)
procedure TForm1.Person1(NewID:Integer);
begin
  FID := NewID;
end;

Adding Unit1 to the uses-clause of Unit2, you can get the current value simply by calling Form1.ID.