Delphi-Quellcode:
private
procedure suffix(nm1: integer; nm2: integer; nm3: integer; nm4: integer);
Das scheint eine procedure in einer Klasse zu sein.
procedure suffix(netz1: integer; netz2: integer; netz3: integer; netz4: integer);
das müsste also
procedure TMyClassName.suffix(netz1: integer; netz2: integer; netz3: integer; netz4: integer);
heißen.
und im aufruf hast du dann alles durcheinandergewürfelt...