no es nada del otro
create el formulario de consulta
agregale tantos paneles como canchas tengas (trata de que los tamaños sean uniformes)
luego cuando abras el formulario pregunta
Código Delphi
[-]if cancha1 = alquilada? entonces panelCancha1.Color := clRead else panelCancha1.Color:= clgreen
algo asi