procedure TForm1.FormCreate(Sender: TObject);
begin
   ImageEnVect1.ObjPenColor[-1] := clBlack;
   ImageEnVect1.ObjBrushColor[-1] := clWhite;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
   i, hobj:integer;
begin
   for i := 0 to ImageEnVect1.ObjectsCount do
   begin
   	hobj := ImageEnVect1.GetObjFromIndex( i );
   	ImageEnVect1.ObjFontHeight[hobj] := StrToInt(combobox1.Text);
   end;
end;

procedure TForm1.btnTextClick(Sender: TObject);
begin
	ImageEnVect1.MouseInteractVt := [miPutMemo];
end;

procedure TForm1.ImageEnVect1NewObject(Sender: TObject; hobj: Integer);
begin
	ImageEnVect1.MouseInteractVt := [miObjectSelect];
end;