entsprechender Delphi Code zu VB6?

[jaegerschnitzel]

Komme immer noch nicht damit klar.
Also nochmal erklärt. Zuerst mein kompletter Code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, Mask, ExtCtrls, ComCtrls, XPMan, CheckLst,
  Grids, ValEdit, Outline, DirOutln, Calendar, Spin, ColorGrd, OleCtrls,
  Chartfx3, OleCtnrs, jpeg, Buttons, AlignLabeledEdit, AlignEdit;

type
  TForm1 = class(TForm)
    Image: TImage;

    edit_Drehbuch: TLabeledEdit;
    edit_Regie: TLabeledEdit;
    RichEdit: TRichEdit;
    Button1: TButton;
    Button2: TButton;
    MainMenu1: TMainMenu;
    edit_Folge: TAlignLabeledEdit;
    edit_ErstausstrahlungD: TAlignLabeledEdit;
    edit_ErstausstrahlungU: TAlignLabeledEdit;
    edit_Titel: TLabeledEdit;
    edit_OriginalTitel: TLabeledEdit;
    Staffel11: TMenuItem;
    N01NichtVonDieserWelt1: TMenuItem;
    N02HutungBeiVollmond1: TMenuItem;
    N03Feuerball1: TMenuItem;
    procedure N01NichtVonDieserWelt1Click(Sender: TObject);
    procedure N02HutungBeiVollmond1Click(Sender: TObject);

    procedure PlayEpisodeNummer(Folgennummer: Integer);


    private
    { Private-Deklarationen }
    Folgennummer: Integer;
    
    public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.N01NichtVonDieserWelt1Click(Sender: TObject);
begin
Folgennummer := 1;
PlayEpisodeNummer(Folgennummer);
end;

procedure TForm1.N02HutungBeiVollmond1Click(Sender: TObject);
begin
Folgennummer := 2;
PlayEpisodeNummer(Folgennummer);
end;

procedure PlayEpisodeNummer(Folgennummer: Integer);
begin
  case Folgennummer of
    1:;
    richedit.Lines.LoadFromFile('.\episodes\01.txt');
    Image.Picture.LoadFromFile('.\images\01.jpg');
    2:;
    richedit.Lines.LoadFromFile('.\episodes\02.txt');
    Image.Picture.LoadFromFile('.\images\02.jpg');
  end;
end;

end.

Wenn ich nun auf einen Menüpunkt klicke soll zuerst der Integer Folgennummer auf 1 bzw. 2 gesetzt werden. Nun soll der Befehl PlayEpisodeNummer(Folgennummer); ausgeführt werden. Je nachdem ob Folgennummer 1 oder 2 ist, soll der case 1 oder 2 ausgeführt werden.
Nur geht das nicht. Es kommt immer eine Fehlermeldung (ungeügende forward -oder external-deklarationen). An was kann das liegen?