Package compiliert nicht

[Hansa]

Hi,

folgenden Code habe ich in ein Package einbauen wollen:

Code:

TDBLabeledEdit = class(TDBEdit)
  private
    { Private declarations }
    FDBfeldLabel : TLabel;
    procedure SetDBLabel (st : string);
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
    property DBfeldLabel : TLabel read FDBfeldLabel write SetDBLabel;
  end;

Delphi stört sich an dem SetDBLabel. Aber warum ? Da steht nur folgendes drin:

Code:

procedure TDBLabeledEdit.SetDBLabel (st : string);
begin
  FDBfeldLabel.Caption := 'st';
end;

Fehlermeldung : "incompatible types"