procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.Canvas.Font.Name := 'Arial';
 Form1.Canvas.Font.Charset := ARABIC_CHARSET;
 Form1.Canvas.Font.Size := 10;
 Form1.Canvas.Font.Style := [fsBold];
 Form1.Canvas.TextOut(10, 5, 'بسم الله الرحمن الرحيم');
end