with ImageEnVect1 do
begin
  ObjKind[-1] := iekLINE;
  ObjLeft[-1] := 0; ObjTop[-1] := 0;
  ObjWidth[-1] := 100; ObjHeight[-1] := 100;
  ObjPenColor[-1] := clRed;
  ObjPenWidth[-1] := 10;
  AddNewObject;
end;

with ImageEnVect1 do
begin
  ObjKind[-1] := iekLINE;
  ObjLeft[-1] := 0; ObjTop[-1] := 200;
  ObjWidth[-1] := 100; ObjHeight[-1] := 100;
  ObjPenColor[-1] := clBlue;
  //ObjPenWidth is still 10 from previous object
  AddNewObject;
end;

constructor TImageEnVect.Create(Owner: TComponent);
begin
...
  with fNewObj do
  begin
    x1 := 0;
    y1 := 0;
    x2 := IEDEFWIDTH - 1;
    y2 := IEDEFHEIGHT - 1;
    a1 := 0;
    a2 := 2 * pi;
    PenColor := clWhite;
    PenStyle := psSolid;
    PenWidth := 1;
    ...
  end;
...
end;