Pro.

Eller hvad skal jeg så gøre?

Du kan lave en unit ( uden form ) du user i alle dine unit's og putte globale var der ned, og du kan skrive form1.myvar := 1;

Mener du ikke unit1.myvar := 1;

Jeg har nu lavet det. Min variabl unit hedder: Variantsused.

Men den kommer med denne error:
[Error]File not fund: 'Variantsused.dfm'

Og jeg har gemt min nye unit!!

Hvad gør jeg galt

Min nye unit ser sådan ud:

unit Variantsused;

interface

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


var
  antil: Integer;

implementation

{$R *.dfm}

end.

Antil en den før omtalte variabl

Din Unit SKAL se sådan ud:

unit Variantsused;

interface

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


var
  antil: Integer;

implementation

end. 
--------------------------

Uden {$R *.dfm} det er jo en unit uden Form

/Martin

Unit unit1
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,      Controls, Forms,Dialogs, Form2;

type
  TForm1 = class(TForm)
  procedure formcreate(sender : TObject);

var
  form1 : TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(sender : TObject);
begin
with form2 do
begin
  Variable := 54;
end;
end;
end.

unit unit2

interface

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

type
  TForm2 = class(TForm)
  procedure formcreate(sender : TObject);

var
  form2 : TForm1;
  variable : integer;
       
implementation

{$R *.dfm}
procedure TForm2.FormCreate(sender : TObject);
begin
  variable := 32;
end;
end. 

Sådan laver du et program, der ændrer variablen i en anden Form.