Thank's for your answer.

I download Asphyre package and set on my Delphi.
I write to formCreate:

Code:
procedure TMain.MainFormCreate(Sender: TObject);
begin
 if (not aDvc.Initialize) then
 begin
  ShowMessage('Error initializing Asphyre!');
  Main.Close;
 end;

 //...
end;

procedure TMain.aTmrTimer(Sender: Tobject);
begin
 aDvc.Render(clWhite, True);
 aDvc.Flip;
end;

//and drawing in procedure aDvc.Render
procedure TMain.aDvcRender(Sender: Tobject);
begin
 aCanvas.Rectangle(0, 0, aDvc.Width, aDvc.Height, clLime, clGreen, 1);
end;
how to use AsphyreFont from ASDB archives?