Hola
Asi?:
Código Delphi
[-]
qryExec:= TZQuery.Create(nil);
qryEXEC.SQL.Add(' INSERT INTO turno ( ID_PACIENTE, FECHA_HORA ) '+
' values ( :ID_PACIENTE, :FECHA_HORA)');
qryExec.ParamByName( 'ID_PACIENTE' ).Value:= Data.qryPAC.FieldByName ( 'ID_PACIENTE' ).value;
qryExec.ParamByName ( 'FECHA_HORA').Value:= FormatDateTime( 'yyyyMMdd', sHora );
qryExec.Connection:=Data.Conx;
qryExec.ExecSQL;
FreeAndNil (qryExec);
Data.qryTurno.Refresh;
No esto muy seguro del FormatDateTime (nunca lo he usado, pero esa es la idea.
El parametro no tiene por que contener el formato, es cuando se le da valor que lo debe contener.
Saludos