procedure TForm1.WindowMode;
begin
 DXDraw1.Finalize;
 RestoreWindow;
 DXDraw1.Options := DXDraw1.Options - [doFullScreen];
 DXDraw1.Display.Width := 640;
 DXDraw1.Display.Height := 480;
 DXDraw1.Display.BitCount := 8;
 DXDraw1.Initialize;
end;

DXDraw.Align := alClient;
Form.ClientWidth := … // Установка ширины Формы/DXDraw
Form.ClientHeight := … // Установка высоты Формы

procedure TForm1.FullScreenMode;
begin
 DXDraw1.Finalize;
 StoreWindow;
 DXDraw1.Options := DXDraw1.Options + [doFullScreen];
 DXDraw1.Display.Width := 640;
 DXDraw1.Display.Height := 480;
 DXDraw1.Display.BitCount := 8;
 DXDraw1.Initialize;
End;
// Set mode in non-Windows GUI Disable windows-controls-> purely graphics screen (very fast)
DXDraw.Options := DXDraw.Options + [doFlip];
// Enable Windows controls
DXDraw.Options := DXDraw.Options - [doFlip];

Screen.Cursor := CrNone; // Спрятать курсор
Form1.BorderStyle := bsSingle; // Спрятать бордюр формы

procedure LoadImage (Filename, NameImage : String; PatWidth, PatHeight : Integer; 
Transp : Boolean; TranspColor : TColor);
begin
 DXImageList.Items.Add;
 with DXImageList.Items[DXImageList.Items.Count-1] do
 begin
 Picture.LoadFromFile (FileName);
 Name := NameImage;
 PatternWidth := PatWidth;
 PatternHeight := PatHeight;
 SkipHeight := 0;
 SkipWidth := 0;
 SystemMemory := False;
 Transparent := Transp;
 TransparentColor := TranspColor;
 Restore;
 end;
end; 

ImageList.Items.MakeColorTable;
DXDraw.ColorTable := ImageList.Items.ColorTable;
DXDraw.DefColorTable := ImageList.Items.ColorTable;
DXDraw.UpdatePalette;

Var Pal : TRGBQuad;
Pal.rgbRed := 16;
Pal.rgbGreen := 0;
Pal.rgbBlue := 0;
Pal.rgbReserved := 0;
DXDraw1.ColorTable[i] := Pal; 

function ComposeColor(Dest,Src:TRGBQuad;Percent:Integer):TRGBQuad;
begin
 with Result do
 begin
 rgbRed :=Src.rgbRed+((Dest.rgbRed-Src.rgbRed)*Percent div256);
 rgbGreen :=Src.rgbGreen+((Dest.rgbGreen-Src.rgbGreen)*Percent div256);
 rgbBlue :=Src.rgbBlue+((Dest.rgbBlue-Src.rgbBlue)*Percent div256);
 rgbReserved :=0;
 end;
end; 

Var Col : Integer;
for i:=0 to 255 do
 DXDraw1.ColorTable[i] := ComposeColor (RGBQuad(GetRValue(Col), GetGValue(Col), 
 GetBValue(Col) ), DXDraw1.DefColorTable[i], p);
DXDraw1.UpdatePalette; 

Sprite.WorldX = Sprite.X + Sprite.Engine.X (sprite.x. связан с SpriteEngine)
Sprite.WorldY = Sprite.Y + Sprite.Engine.Y (sprite.y. связан с SpriteEngine)

X := ... // Новое значение X спрайта
Y := ... // Новое значение Y спрайта
DXSpriteEngine.X := -X + (DXSpriteEngine.Width div 2) - (Width div 2);
DXSpriteEngine.Y := -Y + (DXSpriteEngine.Height div 2) - (Height div 2);

TBackground = class (TBackgroundsprite)
public
 procedure DoMove (MoveCount : Integer); override;
end;

SBackground := TBackground.Create (DXSpriteEngine1.Engine);
with SBackground do
begin
 image := DXImageList1.Items.Find('image1');
 image.Transparent := false;
 SetMapSize(1,1);
 Z := -10;
 Tile := false;
end;
var SBackground : TBackground; 

TBackground = class (TBackgroundsprite)
public
 procedure DoMove (MoveCount : Integer); override;
end;
procedure TBackground.DoMove (MoveCount : Integer);
begin
 inherited DoMove (MoveCount);
 X := X-1;
end; 

Tile := True; { Фон полностью заполнен тайлами (При прокрутке, тайлы будут повторяться). 
Значение SetMapSize будет игнорироваться; количество тайлов зависит от размера области экрана (завершенный фон). 
SetmapSize должен быть вызван! иначе работать не будет .. попробуйте например: SetMapSize (1,1) }
Tile := False; { Количество тайлов по высоте и ширине is determined 
by ‘SetmapSize (w,h) SetMapsize (20, 10) <-> mapwidth :=20; 
mapheight :=10; }

MapWidth := 4; MapHeight := 4;
SBackground.Chips[0,0] to [3,3]
Randomize;
SBackground := TBackground.Create (DXSpriteEngine1.Engine);
with SBackground do
begin
 image := DXImageList1.Items.Find('backgr');
 image.Transparent := false;
 SetMapSize(4,4);
 Z := -10;
 for i := 0 to MapHeight-1 do
 for j := 0 to MapWidth-1 do
 Chips[j,i] := random(2);
 Tile := false;
end; 

Randomize;
SBackground := TBackground.Create (DXSpriteEngine1.Engine);
with SBackground do
begin
 image := DXImageList1.Items.Find('backgr');
 image.Transparent := false;
 SetMapSize(5,5);
 Collisioned := True; //Не забудьте, иначе столкновения учитываться не будут!
 Z := -10;
 for i := 0 to MapHeight-1 do
 for j := 0 to MapWidth-1 do
 begin
 Chips[j,i] := random(2); // Выбирается случайный Тайл
 CollisionMap [j,i] := false; // Все Collisions отключены
 end;
 Tile := false;
end;
SBackground.CollisionMap [3,3] := true; // Тайл [3,3] "чувствует" столкновения

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
 if not DXDraw1.CanDraw then Exit;
 DXDraw1.Surface.Fill (0);
 DXSpriteEngine1.Move (1);
 DXSpriteEngine1.Draw;
 DXDraw1.Flip;
end;

DXTimer1.Interval := 1000 div 60; // 60 раз в секунду вызываем метод OnTimer
LagCount is the (?). frequence +1 // частота = кол-во исполнений 'OnTimer'

DXSpriteEngine.Move(LagCount);
X := X+ 0.7*MoveCount; { Вы можете делать значение MoveCount таким-же, как и LagCount. 
Вы можете посылать это значение через параметры метода но не надо 
(Вы можете дать ваше собственное значение MoveCount) }

//Получить текущее состояние
DXInput.Update;
//Текущее состояние джойстика
DXInput.Joystick.X;
DXInput.Joystick.Y;
//Определение движения джойстика:
if ((DXInput.Joystick.X<>0) or (DXInput.Joystick.Y<>0)) then
 ...
//Интервал осей
DXInput.Joystick.RangeX := ... // RangeX =10 то интервал: от-10 до +10
DXInput.Joystick.RangeY := ...
DXInput.Joystick.RangeZ := ...
//Определение состояния клавиатуры
if isLeft in DXInput.States then // Нажата кнопка влево.
 .....
if isRight in DXInput.States then
 ....
if isUp in DXInput.States then
 ....
if isDown in DXInput.States then
 ....
//Возможно, что DXInput.States содержит и IsUp и IsRight (вверх, вправо).
DXInput1.States := DXInput.States - [isButton1]; //Отключение 1 кнопки
DXInput1.States := DXInput.States + [isButton2]; //Включение 2 кнопки
//Кнопки
procedure TForm1. FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if Key = VK_ESCAPE then
 Close;
 if key = ord('B') then
 ...
end;

VK_ESCAPE
Ord (Ascii)
VK_F1 t/m VK_F10
VK_SPACE
VK_UP
VK_DOWN
VK_LEFT
VK_RIGHT

function GetDXVersion : String;
begin
 with tregistry.Create do
 try
 rootkey:=HKEY_LOCAL_MACHINE;
 if OpenKey( '\SOFTWARE\Microsoft\DirectX', False) then
 result:= copy(Readstring('Version'),4,3)
 else result:='DirectX не установлен';
 finally
 free;
 end;
end; 

procedure Tform1.DXSound1Initialize(Sender: TObject);
var fmt:TWaveFormatEx;
begin
 try // Set up the DXSound object to use high quality samples
 with Fmt do
 begin
 wFormatTag := WAVE_FORMAT_PCM;
 nSamplesPerSec := 44100;
 nChannels := 2;
 wBitsPerSample := 16;
 nBlockAlign := wBitsPerSample div 8 * nChannels;
 nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;
 end;
 // must be in exclusive to set the format
 DXSound1.Options := DXSound1.Options + [soExclusive];
 DXSound1.Primary.SetFormat(Fmt);
 except // Error
 end;
end; 

with DXDraw1.Surface.Canvas do
begin
 Brush.Style := bsClear;
 Font.Size := 12;
 Font.Color := clRed;
 TextOut(0,0, ’Some Text’);
 Release;
end; 

procedure TForm1.DXDrawMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);