Fórum Sql não comporta itens #467758

Olá pessoal.
Bom dia.

Tenho essa SQL , de busca de um registro

Só que se acrescento mais campos para carregar nos edits ( tenho 32 campos) ela reclama do comprimento limitado)


O que preciso que aconteça???

Seleciono em Combos, Ano Letivo, Série e Bimestre.
A query deverá buscar e colocar num Grid só os registros que obedecerem à condição dos campos Combo.
Preciso clicar no grid, sobre um desses registros e os campos desse registro serem carregados para os campos Edit (tenho 32 campos)

A query para poucos ítens é essa e funciona.
Mas para todos esse ítens, ela reclama do comprimento da string.

Tem alguma outra forma de dar esses efeitos?

Abaixo a query com poucos ítens
Agradeço a resposta e ajuda

procedure TfrmProvat.btnLocalizarClick(Sender: TObject);
begin
if(frmPrincipal.TableProvat.IsEmpty)then
begin
Panel7.Caption:='Tabela Cadastro de alunos, Vazia';
exit;
end;

if(frmPrincipal.TableProvat.Locate('Ano_letivo;Serie;Bimestre',VarArrayOf([ComboAnoLetivo.Text,ComboSerie.Text,ComboBimestre.Text]),[]))then
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select nome_aluno, num_aluno, ano_letivo, serie, bimestre, ativo_sn from JU_CADALUNOS where bimestre=:x1 and serie=:x2 and ano_letivo=:x3 and ativo_sn=:x4');
Query1.ParamByName('x1').AsString:=ComboBimestre.Text;
Query1.ParamByName('x2').AsString:=ComboSerie.Text;
Query1.ParamByName('x3').AsString:=ComboAnoLetivo.Text;
Query1.ParamByName('x4').AsString:='S';
Query1.Open;
Panel1.Caption:='Registro(s) encontrado(s).';
end
else
begin
Panel7.Caption:='Registro(s) não encontrado(s).';
end;
blink;
end;