Crear TLabel en Runtime asociado a una TImage

[mjjj]

hola amigos del foro.

Estoy utilizando los componentes de Neftali (TSelectOnRunTime y TsaveComps).

Adjunto a estos componentes tiene un ejemplo de un restorant.
Lo que necesito hacer es muy semejante a esto, pero con algunas cosas extras.
Primero necesito que a las mesas se le despliegue un Popup, lo cual lo logre al agregar una linea como sigue.

Código Delphi [-]
procedure TForm1.OnpuntoClick(Sender: TObject);
begin
  if (pcModo.ActivePageIndex = 0) then begin
    SelectOnRunTime.Selected := False;
    // En un TControl?
    if (Sender is TControl) then begin
      SelectOnRunTime.Selected := false;
      SelectOnRunTime.SelectControl := TControl(Sender);
      SelectOnRunTime.Selected := True;
  if (Sender is TImage) then Timage(sender).PopupMenu:=popupmenu1;
   end;
  end;
end;

esto funciona bien, lo segundo, que es el porque de mi consulta, es que quiero agregar algunas TLabel asociadas a cada una de las mesas. Además que cuando modifique la posicion de alguna de estas mesas, las Tlabel asociadas a esta mesa en particulas se mueva con la mesa.

Otra cosa la cantidad de Tlabel que contenga cada mesa puede ser variable, y depende de usuario que escogera de una lista cuales quiere que aparezcan.

Se podra hacer esto... como se hace??

Espero que me puedan ayudar.. mil gracias