DialogsFont example for Delphi

procedure TForm1.ShowResizeDlg1Click(Sender: TObject); 
var
   strCaption: String; 
begin
   LEADDlgImage1.DlgFlags:= DLG_RESIZE_SHOW_IDENTICALVALUE Or
                             DLG_RESIZE_SHOW_MAINTAINASPECT Or
                             DLG_RESIZE_SHOW_PERCENTAGE     Or
                             DLG_RESIZE_AUTOPROCESS          Or
                             DLG_RESIZE_SHOW_RESOLUTIONGRP; 

   LEADDlgImage1.LEADImage:= LEADImage1; 
   LEADDlgImage1.LEADDlgService:= LEADDlgService1; 
   strCaption:= LEADDlgService1.GetDialogString ( DLG_RESIZE_IDSTR_CAPTION ); 
   ShowMessage ( 'Old Caption: ' + strCaption ); 

   {set some custom strings}
   LEADDlgService1.SetDialogString ( DLG_RESIZE_IDSTR_CAPTION, 'My Custom Caption' ); 
   {set a custom font, note, you should use a font on your system}
   LEADDlgService1.DialogsFont.Name:= 'Bones'; 
   LEADDlgService1.DialogsFont.Size := 9; 

   LEADDlgImage1.ShowResizeDlg ( Self ); 
end;