problem mit create:Deklaration unterscheided sich von vorher

[Fussel9]

Hi habe folgendes Problem: [Pascal Fehler] UKarte.pas(43): E2037 Deklaration von 'create' unterscheidet sich von vorheriger Deklaration

Sieht jemand einen Fehler in der Deklaration?

Delphi-Quellcode:

  public //Methoden
    constructor  create(ptrumpf: Boolean; pzahl: Integer; pfarbe: String; pPfad: String); virtual;
    procedure SetzeFarbe (pFarbe: String); virtual;
    procedure SetzePfad (pPfad: String); virtual;
    procedure SetzeTrumpf (pTrumpf: Boolean); virtual;
    procedure SetzeZahl (pZahl: Integer); virtual;
    procedure SetzeNext(pNext: TKarte); virtual;
    procedure SetzePrevious(pPrevious: TKarte); virtual;
    function GibFarbe : String; virtual;
    function GibPfad : String; virtual;
    function GibTrumpf : Boolean; virtual;
    function GibZahl : Integer; virtual;
    function GibNext : TKarte; virtual;
    function GibPrevious : TKarte; virtual;

   end;

implementation

//+---------------------------------------------------------------------
//|         TKarte: Methodendefinition
//+---------------------------------------------------------------------

//-------- Constructor -------------------------------------------------
procedure TKarte.create(ptrumpf: Boolean; pzahl: Integer; pfarbe: String; pPfad: String);
begin
  next := nil;
  previous := nil;
  trumpf := ptrumpf;
  zahl := pzahl;
  farbe := pfarbe;
  Pfad := pPfad;
end;