����� ������������ ���� �� Delphi. ���� 9.  TDXDraw � ������.

procedure TfrmDirectX.DXTimerTimer(Sender: TObject; LagCount: Integer);

begin

  if not DXDraw.CanDraw then exit;

  DXDraw.Surface.Fill(0);  // ������ ���

  with DXDraw.Surface.Canvas do

  begin

    Brush.Style := bsClear;

    Font.Name := 'Arial';

    Font.Color := clWhite;

    Font.Size := 20;

    Textout(30, 30, DateTimeToStr(Now));

    Release; { ������ �����������! }

  end;

  DXDraw.Flip;

end;