Type of expression must be BOOLEAN

[s-andriano]

Мне кажется, использование для этой задачи более или менее стандартных БД - это из пушки по воробьям. Достаточно разработать тип данных (record), описывающий состояние зала на один сеанс, и хранить такие сеансы в файлах, по имени которых этот сеанс можно было бы идентифицировать (имя файла включает, например, дату, время и номер зала).
Состояние мест, естественно, должно храниться в массиве, а не в отдельных переменных.
Массив, как правильно отмечено, должен быть двумерным, по конфигурации охватывающим максимальные размеры. При этом нужно использовать дополнительный признак для описания "фиктивных" мест, т.е. тех ячеек, для которых нет реальных мест (например, зал в этом месте Уже, а ряды, соответственно, короче).

[EndWitherCraft]

Сообщение от Виктория7777

label23.Color:=clRed;
if label23.Color=clred then Application.MessageBox('Билет уже продан', 'Сообщение системы', MB_OK) else Form5.Show;

Исправила.. Но возник ещё один вопрос.
Form5 не запускается, так как label становится красным и сразу вылазит сообщение.

А хотелось бы, что бы сначала он становился красным. И при повторном клике на этот же label вылазило сообщение. Как это можно сделать?

label становиться красным потому что ты так ее запрограммировала.Ты написала

label23.Color:=clRed;if label23.Color=clred then Application.MessageBox('Билет уже продан', 'Сообщение системы', MB_OK) else Form5.Show;

По сути ты сама сделала так чтобы так было