Fórum Problema ao passar parametros para uma consulta #243872

If CmbOrd1.Text = ´Data / Hora asc´ then Ord1 := ´DATA ASC, HORA ASC´;
If CmbOrd1.Text = ´Data / Hora desc´ then Ord1 := ´DATA DESC, HORA ASC´;
If CmbOrd1.Text = ´Prioridade´ then Ord1 := ´PRIORIDADE DESC´;
If CmbOrd1.Text = ´Situação´ then Ord1 := ´SITUACAO ASC´;

If CmbOrd2.Text = ´Data / Hora asc´ then Ord1 := ´DATA ASC, HORA ASC´;
If CmbOrd2.Text = ´Data / Hora desc´ then Ord1 := ´DATA DESC, HORA ASC´;
If CmbOrd2.Text = ´Prioridade´ then Ord1 := ´PRIORIDADE DESC´;
If CmbOrd2.Text = ´Situação´ then Ord1 := ´SITUACAO ASC´;

OrdCon := Concat(Ord1 + ´, ´ +Ord2);

With Query1 do begin
    Close;
    SQL.Clear;
    SQL.Add(´SELECT DATASOLIC AS DATA, HORASOLIC AS HORA, PRIORIDADE,SERSOLIC AS SERVICO , COD,  SITUACAO, USUARIO, SETOR, TIPO, INFORMATIVO, PDATAEXEC, PHORAEXEC´);
    SQL.Add(´FROM CpdOS where situacao in ("Pendente", "Em Andamento") and DATASOLIC <= :data_atual´);
    SQL.Add(´Order by :Ordem´);
    ParamByName(´data_atual´).asdate := Date;
    ParamByName(´Ordem´).asstring := OrdCon;
    Open;
End;