TDirectDrawSurface.PokeLine();
TDirectDrawSurface.PokeLinePolar();
TDirectDrawSurface.PokeBox();
TDirectDrawSurface.PokeBlendPixel();
TDirectDrawSurface.PokeCircle();
TDirectDrawSurface.PokeEllipse();
TDirectDrawSurface.PokeFilledEllipse();
TDirectDrawSurface.PokeWuLine();
TDirectDrawSurface.PokeVLine();
TDirectDrawSurface.DoRotate();

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DXClass, DXDraws;

type
  TForm1 = class(TForm)
    DXDraw1: TDXDraw;
    DXTimer1: TDXTimer;
    procedure FormCreate(Sender: TObject);
    procedure DXTimer1Timer(Sender: TObject; LagCount: Integer);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  DXDraw1.Align := alClient;
  DXTimer1.Interval := 50;
end;

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
var
  x1,y1,x2,y2: Integer;
  clr: TColor;
begin
  x1 := Random(DXDraw1.Surface.Width);
  y1 := Random(DXDraw1.Surface.Height);
  x2 := Random(DXDraw1.Surface.Width);
  y2 := Random(DXDraw1.Surface.Height);
  clr := Random($FFFFFF);

//  DXDraw1.Surface.Fill(0);
  DXDraw1.Surface.Lock;
  DXDraw1.Surface.PokeLine(x1, y1, x2, y2, clr);
  DXDraw1.Surface.UnLock;
  DXDraw1.Flip;
end;

end.