How to create a HttpServer at runtime

Hi

After creating HttpServer using components in design time, I need now to create them at runtime encapsulating them in a class, etc.
The problem is that I cannot figure out how to link TRoIndyHttpServer with TRoBinMessage.

  FRoServer := TRoIndyHttpServer.Create(nil);
  FRoMessage := TRoBinMessage.Create;

I’ve tried using Dispatchers property with no avail. Do you have an example of that?

see the FPC Server sample:

  ROMessage := TROBinMessage.Create(TComponent(nil));
  ROServer := TROIndyHTTPServer.Create(nil);
  TROMessageDispatcher(ROServer.Dispatchers.Add).Message := ROMessage;