program Client;

uses
  uROComInit,
  Forms,
  fClientForm in 'fClientForm.pas' {ClientForm},
  BonjourDiscoverableLibrary_Intf in 'BonjourDiscoverableLibrary_Intf.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'Bonjour Discovery Client';
  Application.CreateForm(TClientForm, ClientForm);
  Application.Run;
end.