[vroa74]

En el form1

Código Delphi [-]
  private
    { Private declarations }
  public
        id_tit : integer;
        id_dir : integer;
        id_com : integer;
        id_tra : integer;
    { Public declarations }
  end;

var
  Form1: TForm1;

Mando a llamar al form2

Código Delphi [-]
procedure TForm2.JvBitBtn4Click(Sender: TObject);
var f : tForm2;
begin
    f:= Tform2.Create(application);
    f.Image1.Picture.LoadFromFile(form1.logo);
 try
    f.ShowModal;
 finally
    f.Free;
    Label7.Caption :=IntToStr(id_dir);  // cuando regresa del form refreca el valor de la variable
 end;// fin del try
end;

Estabdo en el form2 esto es lo que sucede caundo oprimo el boton para asignarle el valor a la variable declarada en el form1.

Código Delphi [-]
procedure TForm2.JvBitBtn1Click(Sender: TObject);
begin
    form1.id_dir := strtoint(Edit1.Text);
end;