[PeKpyT]

Код:

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;

Ключевого слова procedure там не должно быть! просто EnterText(62,70,'Some text')