Klasser ... Hvad er galt her ???

unit MedlemKlasse;

interface
type
  Medlem = Class
  Fornavn          : String[30];
  Efternavn        : String[30];
  Adresse          : String[40];
  By              : String[20];
  Postnr          : String[8];
  BetaltTilDato    : String[30];
  Alder            : Integer;
  Cpr              : Integer;
  Holdnr          : Integer;
  Tlf              : Integer;
  Koen            : char;

  Constructor Create(NyFornavn,NyEfternavn,NyAdresse,NyBy,NyBetaltTilDato: string; NyAlder,NyCpr,NyHoldnr,NyTlf: integer; NyKoen : Char);
  procedure SetFornavn(NyFornavn : string);
  procedure SetefterNavn(NyEfternavn : string);
  procedure Setcpr(NyCpr : integer);
  procedure SetKoen(Nykoen : char);
  procedure SetAdresse(NyAdresse : string);
  procedure SetHoldnr(NyHoldnr : integer);
  procedure SetTlf(Nytlf : integer);
  procedure SetBy(NyBy : string);
  procedure SetBetaltTilDato(NyBetaltTilDato : string);
  end;

implementation

constructor Medlem.Create(NyFornavn,NyEfternavn,NyAdresse,NyBy,NyBetaltTilDato: string; NyAlder,NyCpr,NyHoldnr,NyTlf: integer; NyKoen : Char);
begin
  Fornavn := NyFornavn;
  Efternavn := NyEfternavn;
  Adresse := NyAdresse;
  By := NyBy;
  BetaltTilDato := NyBetaltTilDato;
  Alder := NyAlder;
  Cpr := NyCpr;
  Holdnr := NyHoldnr;
  Tlf := NyTlf;
  Koen := NyKoen;
end;

procedure SetforNavn(NyFornavn : string);
Begin
  Fornavn := Nyfornavn;
End;

procedure SetefterNavn(NyEfternavn : string);
Begin
  Efternavn := Nyefternavn;
End;

procedure Setcpr(NyCpr : integer);
Begin
  Cpr := NyCpr;
End;

procedure SetKoen(Nykoen : char);
Begin
  Koen := NyKoen;
End;

procedure SetAdresse(NyAdresse : string);
Begin
  Adresse := NyAdresse;
End;

procedure SetHoldnr(NyHoldnr : integer);
Begin
  Holdnr := NyHoldnr;
End;

procedure SetTlf(Nytlf : integer);
Begin
  Tlf := NyTlf;
End;

procedure SetBy(NyBy : string);
Begin
  By := NyBy;
End;

procedure SetBetaltTilDato(NyBetaltTilDato : string);
Begin
  BetalttilDato := NyBetaltTilDato;
End;

end.