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

procedure meineProc;
var zahl1,zahl2,zahl3:integer;
begin
zahl1:= 1;
zahl2:= 5;
zahl3:= zahl1 + zahl2 ;
showmessage('Das Ergebnis ist: '+inttostr(zahl3));
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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

unit uni1;

interface

uses ...;

Type TForm1 = Class(TForm1)
   {... Komponenten ...}
   {... Methoden ...}
  private
  public
     procedure meineProz1;
  end;

procedure meineProz2;
procedure meineProz3;

Var
  Form1 : TForm1;

implementation


procedure TForm1.meineProz1;
begin
  {mach was}
end;

procedure meineProz2;
begin
  {mach was anderes}
end;

procedure meineProz3;
begin
  {mach noch was}
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:
26:
27:
28:
29:
30:

unit unit2;

interface

uses ..., unit1;

Type TForm2 = Class(TForm2)
   {... Komponenten ...}
   {... Methoden ...}
  private
  public
  end;

procedure meineProz2;

Var
  Form2 : TForm2;

implementation

//uses unit1;
(*Hier kann man auch eine uses-Klausel benutzen. Aber nur, wenn man die Units im Interface-Teil noch nicht braucht. Und oben darf die entsprechende Unit dann nicht mehr stehen*)


procedure meineProz2;
begin
  unit1.meineProz2;
  meineProz3;
  form1.meineProz1;
end;