with query do
begin
close;
sql.text = 'insert campo1, campo2, campo3 values (:valor1, :valor2, :valor3)';
parambyname('valor1').asString := edText1.Text;
parambyname('valor2').asDatetime := edFecha.Date;
parambyname('valor3').value := edOtro.Text;
ExecSql;
end;