[TOPX]

Saludos,

... Uhm, no sé, pero tenía un poco de tiempo y, a mí me gusta así:

Código Delphi [-]
  Query1.Close;
  Query1.SQL.Text := 
    'Select Aula, Dia, Prof, ' +
    'Hora1, Hora11, Hora2, Hora22, Hora3, Hora33, ' +
    'Hora4, Hora44, Hora5, Hora55, Hora6, Hora66, ' +
    'Hora7, Hora77, Hora8, Hora88, Hora9, Hora99, ' +
    'Hora10, Hora101, Hora11a, Hora111, ' +
    'Hora12, Hora121, Hora13, Hora131, ' +
    'Hora14, Hora141, Hora15, Hora151, ' +
    'Hora16, Hora161, Hora17, Hora171 ' +
    'From horario.db ' +
    'Where Aula like "' +ComboBox1.Text+ '%"';
  Query1.Open;

  for i := 0 to (DBGrid1.Columns.Count - 1) do
  begin
    if i <= 2 then
    begin
      DBGrid1.Columns[i].Width := 128;
    end
    else
    begin
      DBGrid1.Columns[i].Width := 64;
    end;
  end;