{$MODE Delphi}
type
  TTest = class (TObject)
    procedure Test; deprecated;
  end;

procedure TTest.Test;
begin
end;

begin
end.