Access variable from one form to another

[question]

Hi,
i have followed what you have suggested but i still got the value '0' .
Now, i wanna do the work in same Unit mot from another

Code:

Procedure TForm1.AddDateTime(Sender:Tobject;  AEvent: TcxSchedulerEvent);
begin

Query.Close();
    QueryKalender.SQL.Text:= 'INSERT INTO Table'
      '(Name`, `NEWID` ..) ' +
    'VALUES ( ' :Name, :NEWID);';

Query.ParamByName('NEWID').AsInteger:= AEventID;
    Query.ExecSQL();
    Query.Close();

  end;

Procedure TForm1.OnDragDrop(Sender, Source: TObject; X,
  Y: Integer);

begin
//here i would like to use the value of AEventID; 
//i cannnot call the procedure AddDateTime(Sender,TcxSchedulerEvent);
//becasue the parameter is different, how can i overcome it ?
end;

[question]

Hi, now its working fine i have written the follwoing

Code:

procedure TForm1.SetMyPersonID(AValue: Integer);
begin
  FQuery.FieldByName('MyPersonID').AsInteger := AValue;
end;

procedure TForm1.GetMyPersonID: Integer;
begin
  Result := FQuery.FieldByName('MyPersonID').AsInteger;
end;

is that ok to write like this, i mean normally in sql query need to query.sql.add/query.sql.open/close... but in this case it is working fine should i need to write the whole query or is that also okay just to write only

Code:

Result := FQuery.FieldByName('MyPersonID').AsInteger;