procedure TForm1.FormCreate(Sender: TObject);
var
  f: TFont;
begin
  hobj := -1;
  f :=  Form1.Font; //TFont.Create;
  try
    iev1.MouseInteractVt := [miPutMemo];
    iev1.Cursor := 1785;
    iev1.ObjKind[hobj] := iekText;
    iev1.ObjBoxHighlight[hobj] := False;
    iev1.ObjTransparency[hobj] := 255;
    iev1.ObjTextAutoSize[hobj] := true;
    iev1.ObjFontName[hobj] := AnsiString('Arial'); // f.Name);
    iev1.ObjFontStyles[hobj] := f.Style;
    iev1.ObjPenColor[hobj] := f.Color;
    iev1.ObjBrushStyle[hobj] := bsClear;
    iev1.ObjMemoCharsBrushStyle[hobj] := bsClear;
    iev1.ObjMemoBorderStyle[hobj] := psClear;
    iev1.ObjText[hobj] := AnsiString('@€€€@äöüߧ$');
    iev1.ObjName[hobj] := AnsiString(intTostr(1));
    iev1.ObjTextAutoSize [hobj]    :=true;
  finally
    f.Free;
  end;
end;

procedure TForm1.iev1NewObject(Sender: TObject; hobj: Integer);
begin
   iev1.StretchTextRect(hobj);
end;