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

program Project1

uses Unit1 in Unit1.pas, Unit2 in Unit2.pas;

begin
  start(); //def. in Unit1 
end;					

1:

class = blabla					

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:

Unit1

procedure Start();
procedure Anfang();
//procedure Ende();



implementation


var meineKlasse: K1;



procedure Start();
begin;
  WriteLn( 'ann' );
  Anfang();
  WriteLn( 'end' );
  //Ende();

end;



procedure Anfang();
begin
  meineKlasse.Datei_Init( 'Name1' );
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Unit2

type K1 = class
private
  str_Name: string;
public
  procedure Datei_Init( str_N: string );
end;


implementation


procedure K1.Datei_Init( str_N: string );
begin
  str_Name := str_N;
end;					

1:

meineKlasse := K1.Create;