(Resolvido) Erro Delphi UPDATE Parameters

[Mateus Machado]

Eu sou iniciante em Delphi e estou tendo

um problema toda a vez que executo: "Ponto e vírgula (;) faltando no final da instrução SQL".

Essa é a programação:

with dm.qryconsulta do

begin

sql.clear;

SQL.Add('Update consulta');

SQL.Add('Set CRM = :CRM, cod_paciente = :cod_paciente, ');

SQL.Add('Data = :data, horario = :horario ');

SQL.Add('Where horario= :horario2 and data = :data2 order by horario');

Parameters.ParamByName('CRM').Value:= sCrm2;

Parameters.ParamByName('cod_paciente').Value:= iCodPaciente;

Parameters.ParamByName('data').Value:= sData;

Parameters.ParamByName('horario').Value:= sHorario2;

Parameters.ParamByName('horario2').Value:= sHorario2;

Parameters.ParamByName('data2').Value:= sData;

ExecSQL;

end;

[Jhonas]

mostre exatamente como o erro aparece

[Mateus Machado]

mostre exatamente como o erro aparece

Desculpem pela minha idiotice, já consegui consertar o erro.

Muito obrigado pela colaboração mesmo assim.

Não tenho mais nenhuma dúvida.