Метод в классе

[aleksskay]

Вот пытаюсь в дочернем классе TMath переопределить метод Sum

program Project1;

{$APPTYPE CONSOLE}


uses
  SysUtils,
  Dialogs,Windows;

type
    TMess = Class
  Private
    p :integer;
    r :integer;
    Password :string;

     Published

    property CheckPass: string read Password write  Password;

    Procedure Get(S:String);
    Function  Sum (a,b:integer) :Boolean; Virtual;

  end;

    tMath = class(TMess)
    Private
      a:integer;
      c:integer;
      Property Varab  :integer read a Write a;
      Function  Multip(r,k:integer):integer;
      Function Sum(a,b:integer) :Boolean; Override;

    end;





  { Mess }

procedure tMess.Get(S:String);
begin
   ShowMessage(s);
end;

  function TMess.Sum(a, b: integer): Boolean;
begin
   if ( a + b )  mod 2 = 0 then
   Result := True
   else
    Result := false;

end;



var
  str:string;
  m :TMath;
  MyClass :TMess;
  red,c,d:integer;



{ tMath }

Function      tMath.Multip(r, k: integer):integer;
begin
    Result := r * k;
end;

begin

  MyClass :=tMess.Create;
  m := TMath.Create;
  m.Varab := 10;
  red := m.Multip(m.Varab,2);
  Writeln(red);
  MyClass.CheckPass := 'Property';
  str := MyClass.CheckPass;
  MyClass.Get(str);

  MyClass.Free;
  m.Free;


  readln;
end.

но выдает сообщение об ошибке

[Stilet]

А где код метода tMath.Sum ?

[min@y™]

Ну прально. Компайлер ждёт от тебя где-то после implementation определение метода:

function TMath.Sum(a, b: Integer): Boolean;
begin
  Result:= inherited; // да ?
  // ещё какие-то действия
end;

З.Ы. Нафига в классе секция published?