CREATE DEFINER=`root`@`localhost` PROCEDURE `add_to_registrusl`(in d_id BIGINT( 20 ),
in cl_id BIGINT( 20 ) ,in usl_id BIGINT( 20 ) ,in d_price INT( 7 ) ,
in d_am INT( 5 ) ,in d_date varchar( 20 ) ,in d_time varchar( 20 ))
BEGIN
insert into registr_usl (doc_id,client_id, usluga_id, price , amount,doc_date, doc_time)
values (d_id , cl_id , usl_id , d_price , d_am , d_date ,d_time);
END

Text3 = Format(Time, "HH:MM:SS")
Text2 = Format(ctrKalendar1, "YYYY-MM-DD")

in d_date varchar( 20 ) ,in d_time varchar( 20 )

'дата'

strsql = "CALL add_to_registrusl(" + Str(naklnum) + "," + Str(Combo1.ItemData(Combo1.ListIndex)) + "," + Str(FlexGridPlus4.TextMatrix( 1 ,  4 )) + "," + _
Str(massprice(FlexGridPlus4.TextMatrix( 1 ,  4 ))) + "," + Str(FlexGridPlus4.TextMatrix( 1 ,  2 )) + ", '" + Text2.Text + "'," + _
"'" + Text3.Text + "');"

INSERT INTO ....(doc_date,doc_time) values ('дата','время')