新手求救

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, MPlayer, Buttons,inifiles, ComCtrls;type
  TMediaState = (msOpen,msPlay,msPause,msContinue,msStop,msNone) ;
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    OpenDialog1: TOpenDialog;
    Panel1: TPanel;
    ListBox1: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    Open: TSpeedButton;
    Play: TSpeedButton;
    Pause: TSpeedButton;
    Stop: TSpeedButton;
    Label3: TLabel;
    Timer1: TTimer;
    Progress: TScrollBar;
    procedure OpenClick(Sender: TObject);
    procedure PlayClick(Sender: TObject);
    procedure PauseClick(Sender: TObject);
    procedure StopClick(Sender: TObject);
    procedure MediaPlayer1Notify(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ProgressScroll(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
    procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
      var DoDefault: Boolean);
  private
      FMediaState: TMediaState;
      FDragProgress: Boolean;
      procedure SetMediaSate(const Value: TMediaState);
    { Private declarations }
  Published
    Property MediaState: TMediaState Read FMediaState Write SetMediaSate;
  public
    Procedure CreateParams(var Params: TCreateParams);override;
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style- ws_ex_toolwindow;
end;procedure TForm1.SetMediaSate(const Value: TMediaState);//就这里 setmediasate 是在组件中吗。请问是在哪？
begin
省略