Error en Consuta SQL

[lKinGl]

Salu2 amigos foristas

quisiera saber como puedo solventar el siguiente problema:

Código Delphi [-]
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select Aula,Dia,Prof,Hora1,Hora11,Hora2,Hora22,Hora3,Hora33,Hora4,Hora44,Hora5,Hora55,Hora6,Hora66,Hora7,Ho  ra77,Hora8,Hora88,Hora9,Hora99,Hora10,Hora101,Hora11a,Hora111,Hora12,Hora121,Hora13,Hora131,Hora14,H  ora141,Hora15,Hora151,Hora16,Hora161,Hora17,Hora171 From horario.db Where Aula like "' + (ComboBox1.Text) + '%"');
  Query1.Active:=True;
  Query1.Open;
  dbgrid1.Columns.Items[0].Width:=100;
  dbgrid1.Columns.Items[1].Width:=100;
  dbgrid1.Columns.Items[2].Width:=100;
  dbgrid1.Columns.Items[3].Width:=50;
  dbgrid1.Columns.Items[4].Width:=50;
  dbgrid1.Columns.Items[5].Width:=50;
  dbgrid1.Columns.Items[6].Width:=50;
  dbgrid1.Columns.Items[7].Width:=50;
  dbgrid1.Columns.Items[8].Width:=50;
  dbgrid1.Columns.Items[9].Width:=50;
  dbgrid1.Columns.Items[10].Width:=50;
  dbgrid1.Columns.Items[11].Width:=50;
  dbgrid1.Columns.Items[12].Width:=50;
  dbgrid1.Columns.Items[13].Width:=50;
  dbgrid1.Columns.Items[14].Width:=50;
  dbgrid1.Columns.Items[15].Width:=50;
  dbgrid1.Columns.Items[16].Width:=50;
  dbgrid1.Columns.Items[17].Width:=50;
  dbgrid1.Columns.Items[18].Width:=50;
  dbgrid1.Columns.Items[19].Width:=50;
  dbgrid1.Columns.Items[20].Width:=50;
  dbgrid1.Columns.Items[21].Width:=50;
  dbgrid1.Columns.Items[22].Width:=50;
  dbgrid1.Columns.Items[23].Width:=50;
  dbgrid1.Columns.Items[24].Width:=50;
  dbgrid1.Columns.Items[25].Width:=50;
  dbgrid1.Columns.Items[26].Width:=50;
  dbgrid1.Columns.Items[27].Width:=50;
  dbgrid1.Columns.Items[28].Width:=50;
  dbgrid1.Columns.Items[29].Width:=50;
  dbgrid1.Columns.Items[30].Width:=50;
  dbgrid1.Columns.Items[31].Width:=50;
  dbgrid1.Columns.Items[32].Width:=50;
  dbgrid1.Columns.Items[33].Width:=50;
  dbgrid1.Columns.Items[34].Width:=50;
  dbgrid1.Columns.Items[35].Width:=50;
  dbgrid1.Columns.Items[36].Width:=50;
  dbgrid1.Columns[0].Title.caption:='Aula';
  DBGrid1.Columns[1].Title.caption:='Dia';
  dbgrid1.Columns[2].Title.caption:='Prof';
  dbgrid1.Columns[3].Title.Caption:='Hora I1';
  dbgrid1.Columns[4].Title.Caption:='Hora F1';
  dbgrid1.Columns[5].Title.Caption:='Hora I2';
  dbgrid1.Columns[6].Title.Caption:='Hora F2';
  dbgrid1.Columns[7].Title.Caption:='Hora I3';
  dbgrid1.Columns[8].Title.Caption:='Hora F3';
  dbgrid1.Columns[9].Title.Caption:='Hora I4';
  dbgrid1.Columns[10].Title.Caption:='Hora F4';
  dbgrid1.Columns[11].Title.Caption:='Hora I5';
  dbgrid1.Columns[12].Title.Caption:='Hora F5';
  dbgrid1.Columns[13].Title.Caption:='Hora I6';
  dbgrid1.Columns[14].Title.Caption:='Hora F6';
  dbgrid1.Columns[15].Title.Caption:='Hora I7';
  dbgrid1.Columns[16].Title.Caption:='Hora F7';
  dbgrid1.Columns[17].Title.Caption:='Hora I8';
  dbgrid1.Columns[18].Title.Caption:='Hora F8';
  dbgrid1.Columns[19].Title.Caption:='Hora I9';
  dbgrid1.Columns[20].Title.Caption:='Hora F9';
  dbgrid1.Columns[21].Title.Caption:='Hora I10';
  dbgrid1.Columns[22].Title.Caption:='Hora F10';
  dbgrid1.Columns[23].Title.Caption:='Hora I11';
  dbgrid1.Columns[24].Title.Caption:='Hora F11';
  dbgrid1.Columns[25].Title.Caption:='Hora I12';
  dbgrid1.Columns[26].Title.Caption:='Hora F12';
  dbgrid1.Columns[27].Title.Caption:='Hora I13';
  dbgrid1.Columns[28].Title.Caption:='Hora F13';
  dbgrid1.Columns[29].Title.Caption:='Hora I14';
  dbgrid1.Columns[30].Title.Caption:='Hora F14';
  dbgrid1.Columns[31].Title.Caption:='Hora I15';
  dbgrid1.Columns[32].Title.Caption:='Hora F15';
  dbgrid1.Columns[33].Title.Caption:='Hora I16';
  dbgrid1.Columns[34].Title.Caption:='Hora F16';
  dbgrid1.Columns[35].Title.Caption:='Hora I17';
  dbgrid1.Columns[36].Title.Caption:='Hora F17';

necesito realizar esa consulta SQL pero me da error al ejecutar, el error es el siguiente:

[Error]Unit5.pas(371):String literals may have at most 255 elements

no se mucho ingles pero creo que dice que me sobrepasé del limite de caracteres....


¿saben alguna solucion?

salu2 y gracias adelantdas