Помогите с кодом

[lewka-serdceed]

Здравствуйте!!! Есть код:

procedure TForm1.FormCreate(Sender: TObject);
var Expr,Expr2:TExprClass;
begin
Expr:=TExprRatio.Create(TExprVar.Create('c'),TExprVar.Create('d'));
 // Теперь Expr содержит дробь c/d
 Expr.AddNext(TExprSign.Create(esPlus));
 Expr.AddNext(TExprvar.Create('1'));
 // Теперь Expr является началом цепочки, в которой есть ещё знак "+" и единица
 Expr:=TExprBracketed.Create(Expr,ebRound,ebRound);
 // Теперь Expr содержит выражение, которое заключено в скобки
 Expr2:=TExprVar.Create('a');
 Expr2.AddNext(TExprSign.Create(esPlus));
 Expr2.AddNext(TExprVar.Create('b'));
 Expr2.AddNext(Expr);
 // Теперь Expr2 содержит всю цепочку выражений, которая нам нужна.
 Expr:=TExprChain.Create(Expr2);
 // Еспользуем класс TExprChain, предназначенный для отображения цепочки как единого целого.
 // Построение дерева выражения закончено.
  Expr.Canvas:=Image1.Picture.Bitmap.Canvas;
 Expr.Font.Size:=50;
 // Теперь размер шрифта установлен
   Expr.Draw(5,5,ehLeft,evTop);

, написанный мной по аналогии похожего кода. Но в моем коде почему то не хочет отражаться формула которую я задаю (вообще ни чего не отображается). Подскажите почему?

[kinderproc]

Хм... попробуй вместо

Expr.Canvas:=Image1.Picture.Bitmap.Canvas;

написать

Expr.Canvas:=Image1.Canvas;

Видимо у класса TExprClass свойство Canvas ссылается на класс TCanvas, а Image1.Picture.Bitmap.Canvas на TBitmapCanvas. Было бы проще, если бы ты исходники TExprClass показал.