Очень благодарен за помощь думаю теперь я все сдделаю ништяк..единственная просьба...насчет описаний..всех действий
оч нада..хотябы что означает вот этот кусок программы
r := ( Sender as TPanel ).Tag;
m := StrToInt( ( Sender as TPanel ).Caption );
if not Seans[ComboBox1.ItemIndex][r][m].State then
begin
Seans[ComboBox1.ItemIndex][r][m].State := true;
( Sender as TPanel ).Color := clRed;
end
else
begin
Seans[ComboBox1.ItemIndex][r][m].State := false;
( Sender as TPanel ).Color := clBtnFace;