procedure SqlEjecuta(veSqlQuery: TSQLQuery; veSqlStr: string);
begin
  try
    with veSqlQuery do begin
      Close;
      SQL.Clear;
      SQL.Add(veSqlStr);
      ExecSQL;
      Close;
    end;
  except
    on E:Exception do
      ShowMessage(E.Message);
  end;
end;