[Pigmalion]

Доброго времени суток всем. Подскажите,я эту процедуру:

Код:

  
 procedure EnterText(x,y:integer;s:string);
     var
      Canvas:TCanvas;
   begin
     Canvas.Font.Size   := 12;
     Canvas.Font.Color  := clBlack;
     Canvas.TextOut(x,y,s);
   end;

Подставляю сюда

Код:

procedure TForm1.Block(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if (Bl) then
   begin
    canvas.Brush.Color:=clwhite;
    canvas.Rectangle(60,50,180,110);
   procedure EnterText(62,70,'Some text');
    BL:= not BL;
    exit;
    end;
   begin
if not BL then
     begin
      canvas.pen.Style:=pssolid;
      canvas.Brush.Color:=clred;
      canvas.Rectangle(60,50,180,110);
      procedure EnterText(62,70,'Some text');
      BL:= true;
      exit;
     end;
    end;
end;

Ошибка.Если пропустить прога глючит(