책에 있는 예제 소스를 따라 한건데요..에라기 납니다. 컴파일 하면

[Error] Unit1.pas(26): Identifier redeclared: 'Tmyclass.test'

이런 에러가 나는데.. 모죠..? 이런 간단한 것도 모르다니 ㅜㅜ;
지금 엄청 해매고 잇어요.. 도와주세요

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
    Tmyclass = class
        var1 : integer;
        procedure test ; virtual;
    end;

    procedure Tmyclass.test;
    begin
        showmessage('tst');
    end;

type
    TTestClass = class(Tmyclass)
        var2 : integer;
        procedure test ; override;
    end;

    procedure TTestClass.test;
    begin
        Showmessage('ttest');
    end;


var
  Form1: TForm1;
  MyClass: TMyclass;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    Myclass := TtestClass.create;
    Myclass.test;
    Myclass.free;
end;

end.