Fórum Orientação a objetos - erro na classe #303981

Boa noite!!!

Implementei a seguinte Classe base e a seguinte Classe descendente da Classe base e seus respectivos métodos:

unit UBusca;

interface

uses DB;

type
TBusca = class(TObject)
private
FDataSource: TDataSource;
public
procedure BuscarNome(Nome: string); virtual; abstract;
procedure Transferir(Codigo: Integer); virtual; abstract;
property DataSource: TDataSource read FDataSource write FDataSource;
end;

TBuscaEscolaridade = class(TBusca)
public
constructor Create;
destructor Destroy; override;
procedure BuscarNome(Nome: string); override;
[b:272c23485b][color=red:272c23485b]procedure Transferir(Codigo: Integer); override;[/color:272c23485b][/b:272c23485b]
end;

Só que nesta linha que está marcada de vermelho está me retornando o seguinte erro:
Unsatisfied forward or external declaration: ´TBuscaEscolaridade.Transferir´

Alguém poderia me ajudar com esse erro?

Desde já, agradeço-lhes.

Cristiano Mário