Классы

[MaxiMILLION]

Есть класс TTool = class(TObject), классы TPenTool = class(TTool) и TLineTool = class(TTool).
TToolClass = class of TTool;

const tools_by_tag: array[1..2] of TToolClass = (TPenTool, TLineTool);
var currenttool: TToolClass;

в классе TTool в разделе public объявлены процедуры Draw и Finish. Как из текста программы через переменную currenttool обратиться к процедурам, объявленным в TTool?

[alexBlack]

Вот так:

var t : TTool;
begin
   currenttool := tools_by_tag[1];
   t := currenttool.Create;
   t.Draw;

[MaxiMILLION]

на этапе t := currenttool.Create; выдаёт Access Violation at adress 0000FFF4

[alexBlack]

Может чего-то недоговариваете ?
Вот тест:

type
   TToolClass = class of TTool;
   TTool = class(TObject)
      procedure Draw;
   end;
   TPenTool = class(TTool)
   end;
   TLineTool = class(TTool)
   end;

const tools_by_tag: array[1..2] of TToolClass = (TPenTool, TLineTool);
var currenttool: TToolClass;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var t : TTool;
begin
   currenttool := tools_by_tag[1];
   t := currenttool.Create;
   t.Draw;

end;

procedure TTool.Draw;
begin
   ShowMessage('test');
end;

[MaxiMILLION]

всё заработало.большое спасибо.