Despues tengo otro codigo pero directamente me tira este mensaje
12.png
despues tengo este otro codigo donde me tira ese error:
Código Delphi
[-]
var
jp : TJPEGimage;
begin
jp :=TJPEGimage.Create;
jp.LoadFromFile(opendialog1.FileName);
BitBtn4.Click;
if (EditAP_TU.Text <> '') and (EditNO_TU.Text <> '') and (EditDO_TU.Text <> '') and (EditTI_TU.Text <> '') and (EditCO_TU.Text <> '')then
begin
with DataModule1.FDQINSERT_TUR do
begin
Params.ParamByName('FEC_TUR').AsDate := DateTimePicker1.Date;;
Params.ParamByName('HOR_TUR').AsTime := DateTimePicker2.Time;
Params.ParamByName('DNI_TUR').AsInteger := StrToInt(EditDO_TU.Text);
Params.ParamByName('APE_TUR').AsString := EditAP_TU.Text;
Params.ParamByName('NOM_TUR').AsString := EditNO_TU.Text;
Params.ParamByName('EDA_TUR').AsString := EditED_TU.Text;
Params.ParamByName('OBR_TUR').AsString := COBOX1.Text;
Params.ParamByName('MED_TUR').AsString := COBOX2.Text;
Params.ParamByName('COD_TUR').AsInteger := StrToInt(EditCO_TU.Text);
Params.ParamByName('TIP_TUR').AsString := EditTI_TU.Text;
Params.ParamByName('COS_TUR').AsFloat := StrToFloat(EditCOS_TU.Text);
Params.ParamByName('ABO_TUR').AsFloat := StrToFloat(EditAB_TU.Text);
Params.ParamByName('SAL_TUR').AsFloat := StrToFloat(EditSA_TU.Text);
Params.ParamByName('TOT_TUR').AsFloat := StrToFloat(EditTO_TU.Text);
Params.ParamByName('EMP_TUR').AsString := FORMPRINCIPAL.Label5.Caption;
params.ParamByName('IMA_TUR').AsSign(jp);
Params.ParamByName('ASI_TUR').AsString := 'SI';
ExecSQL;
if RowsAffected = 1 then
begin
DataModule1.FDTTURNOS.Refresh;