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

         function fahre (var ASF: MOA):integer; overload; 
         function fahre (var ASF: MALI):integer; overload;
         function fahre (var ASF: MACI):integer; overload;

implementation

         function fahre (var ASF: MOA): integer; overload;
         begin
         end;
         function fahre (var ASF: MALI):integer; overload;					

1:
2:
3:

type
  TForm5 = class(TForm)
 procedure ed_anzahlChange(Sender: TObject);					

1:
2:
3:
4:
5:

var
  Form5: TForm5;

implementation
 {$R *.dfm}					

1:
2:
3:
4:

function anzahl_testreihe():integer;
begin
result := strtoint(ed_anzahl.text);
end;					

1:
2:
3:

type
  TForm5 = class(TForm) 
function anzahl_testreihe():integer;					

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

TFormx = class(TForm)
    function ChefRoutine(x) : Byte;
//...
implementation
//...
function TFormx.ChefRoutine(x) : Byte;
begin
  //Mach hier irgendwas
end;