Methode 'WndProc' nicht in Basisklasse gefunden?

[AlexII]

Hallo,

ich hab ein folgendes Problem und komme nicht weiter, und zwar die Methode 'WndProc' wird bei mir nicht in Basisklasse gefunden. Woran kann es denn liegen? Hier mein Code:

Delphi-Quellcode:

...
  public
    { Public-Deklarationen }
    procedure WndProc(var Msg: TMessage); override;
...

...
procedure TForm1.WndProc(var Msg: TMessage);
begin
  inherited;
  if Msg.Msg = WM_INFO_UPDATE then
    case msg.WParam of
      0:
        begin
          Label4.Text := 'connecting...';
          Label3.Text := '';
          Label5.Text := '';
        end;
      1:
        begin
          Label4.Text := 'not playing';
          //Error('Can''t play the stream');
         MessageBox(win, PChar('Can''t play the stream' + #13#10 + '(error code: ' +
            IntToStr(msg.LParam)+')'), nil, 0);

        end;
      2: Label4.Text := Format('buffering... %d%%', [msg.LParam]);
      3: Label4.Text := String(PAnsiChar(msg.LParam));
      4: Label5.Text := String(PAnsiChar(msg.LParam));
      5: Label5.Text := String(PAnsiChar(msg.LParam));
      6: Label3.Text := String(PAnsiChar(msg.LParam));
      7: Label3.Text := String(PAnsiChar(msg.LParam));
      8: Label5.Text := String(PAnsiChar(msg.LParam));
    end;
end;
...