1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

TWriter = class(TObject)
  private
    WWriterImages : TDXImageList;
    WWriterImagePath : string;
  protected
  public
    procedure Write(text : string; PosX, PosY : integer);
    constructor Create(aForm: TComponent; aDXDraw: TDXDraw);
  end;

TForm1 = class(TForm)
    DXDraw: TDXDraw;
  private
    GJWriter : TWriter;
  public
  end;					

1:
2:
3:
4:
5:

constructor TWriter.Create(aForm: TComponent; aDXDraw: TDXDraw);
begin
  WWriterImages := TDXImagelist.create(aForm);
...
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  DXDraw.surface.fill(500);
  GJWriter.Write(edit1.text, 20, 20);   // das ziel Form1.DXDraw.Surface wurde wo anders reingehauen
  DXDraw.flip;
end;					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  image1.Picture:=GJWriter.WWriterImages.Items[0].Picture;
end;					

1:
2:
3:

  DXDraw1.Surface.Fill(500);
  DXImageList1.Items.Items[0].Draw(DXDraw1.Surface,10,10,0);
  DXDraw1.Flip;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  DXDraw1.Surface.Fill(500);
  DXImageList1.Items.Items[0].Draw(DXDraw1.Surface,10,10,0);

  with DXDraw1.Surface.Canvas do
  begin
    Brush.Style := bsClear;
    Font.Name := 'MS Sans Serif';
    Font.Style := [fsBold];
    Font.Color := clWhite;
    Font.Size := 8;
    Textout(50, 50, 'Test-Test-1-2-3');
    Release;  // MUSS HIER HIN!
  end;
  DXDraw1.Flip;					

1:
2:
3:

DXDraw1.Surface.Fill(500); 
  DXImageList1.Items.Items[0].Draw(DXDraw1.Surface,10,10,0); 
  DXDraw1.Flip;