procedure TForm1.FormCreate(Sender: TObject);
begin
 DrawString:='Test Speciálního Fontu - Háčky čárky ?! - 
speciální znaky - _().:,=+-*/\@?![]&%"';
 XPos:=DXDraw1.SurfaceWidth;      
 FontName:='font1';
end;

procedure TForm1.DXDraw1Click(Sender: TObject);
begin
 if FontName = 'font1' then FontName:= 'font2'
 else FontName:='font1';
end;

procedure TForm1.DXTimer1Timer(Sender: TObject;
LagCount: Integer);
var i:integer;
begin
 if not DXDraw1.CanDraw then Exit;

 DXDraw1.Surface.Fill(clWhite);

 // celé kreslení...
 for i:= 1 to Length(DrawString) do
  begin
   // kreslit pouze pokud je písmeno viditelné...
   if ((i*20)+Xpos) < DXDraw1.SurfaceWidth then
   DXImageList1.Items.Find(FontName).Draw(DXDraw1.Surface,
   (i*20)+XPos,20,Pos(DrawString[i],FindString)-1);
  end;

 // posunout doleva...
 Dec(XPos,2);
 // když je zobrazen celý DrawString tak odznovu...
 if Abs(XPos) > Length(DrawString)*20 then
 XPos:=DXDraw1.SurfaceWidth;

 // a flip...
 DXDraw1.FLip;
end;