InitDialogs example for Delphi

procedure TForm1.FormCreate(Sender: TObject);
var
   nRet: L_INT; 
begin
   nRet:= LEADDlgService1.InitDialogs ( DLG_INIT_COLOR ); 
   if ( nRet = SUCCESS ) then
   begin
      LEADImage1.Load ( 'e:\image1.cmp', 0, 1, 1 ); 

   end; 
end;