[ecfisa]

Hola juank1971.

Si ya le diste un nombre a cada mesa, podés buscarlas por su nombre con el método FindComponent.

Por ejemplo:

Código Delphi [-]
var
  C: TComponent;
begin
  C:= FindComponent('M'+IntToStr(ID_Mesa)); // suponiendo que el nombre es 'M'+id de mesa
  if Assigned(C) then
  begin
    // aquí lo que desees hacer con la mesa (GroupBox) encontrada...
    TGroupBox(C).Color:= clRed; 
...

Saludos.