unit VCL_Form1;

interface

uses
  ComObj, ActiveX, OleCtrls, AdDynHelpLib_TLB,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    Acad: oleVariant;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
 inspoint : OleVariant;
 Mspace, Texte: OleVariant;
 text: String;
 TextHeight: Double;
begin
  inspoint := VarArrayCreate([0, 2], varDouble);
  inspoint[0] := 2;
  inspoint[1] := 4;
  inspoint[2] := 0;

  Mspace := Acad.ActiveDocument.ModelSpace;

  Text := 'Hello World';
  TextHeight := 1.0;
  Texte := MSpace.AddText(Text,inspoint, TextHeight);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    Acad := GetActiveOleObject('AutoCAD.Application');
  except
    Acad:= CreateOleObject('AutoCad.Application');
  end;
  Acad.Visible := True;
end;

end.