ShowFilesAssociationDlg example for Delphi

Function TForm1.AssociateFiles ( strServerAppName: String ): L_INT; 
begin
   LEADDlgFile1.DlgFlags:= 0; 
   LEADDlgFile1.Formats:= 'LEAD (*.cmp)|*.cmp|DICOM (*.dic)|*.dic|Windows Bitmap (*.bmp)|*.bmp'; 
   LEADDlgFile1.SelectedExt:= '';   
   LEADDlgFile1.ServerAppName:= strServerAppName; 

   Result:= LEADDlgFile1.ShowFilesAssociationDlg ( self ); 
end;